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GENIE DATA HÄNDLER 


Uns erreichen immer wieder Anfragen, wo man die GENIE DATA in der Bundes- 
republik beziehen kann, deshalb haben wir für Sie einmal diese Händler-Übersicht 
zusammengestellt. Die meisten der aufgeführten Händler haben auch unser Software- 
Sortiment in ihrem Programm, Anfragen lohnt ! 


1000 

Micro 80 Computer, Schlüterstraße 1 6, 

1000 Berlin 12 

Ihre Computerei, Johannisthaler Chaussee, 

1000 Berlin 47 

2000 

Computer Modular GmbH, Jürgen Schröder, 
Buxtehuder Straße 24, 

2100 Hamburg 90 

Micro Computer Christ, Knooper Weg 59, 

2300 Kiel 1 

3000 

Computer Studio, Rebenring 49 - 50, 

3300 Braunschweig 

4000 

Regensbergsche Buchhandlung, Alter Steiweg 1, 
4400 Münster 

Computer-Centrale, Douaistraße 1, 

4350 Recklinghausen 

Data Becker GmbH, Merowingerstraße 30, 

4000 Düsseldorf 

Gerhard Knupe oHG, Güntherstraße 75, 

4600 Dortmund 1 

CC Computerstudio, Elisabethstraße 5, 

4600 Dortmund 1 

Baffi Elektronik, Paulusstraße 1 9, 

4800 Bielefeld 1 

Kirchner Elektronik, Grabenstraße 90, 

4100 Duisburg 1 

5000 

Peter Räbiger Micro Computer, Josef-Schregel- 
Straße 45, 

5160 Düren 

Hobby Elektronik 3000, Victoriastraße 8-12, 

5400 Koblenz 


Buchhandlung Gonski GmbH & Co, Neumarkt 24, 
5000 Köln 1 

Uwe Schmidtke Elektronik, Sandkaulstraße 84, 
5100 Aachen 

RMI Nachrichtentechnik GmbH, Postfach 1526, 
5100 Aachen 

6000 

Thomas Igiel Elektronik, Heinrichstraße 48, 
6100 Darmstadt 

DM Elektronik, Triererstraße 4, 

6588 Birkenfeld 

Arthur Rufenach KG, Dammweg 2, 

6900 Heidelberg 

7000 

Arlt Elektr. Bauelemente, Katharinenstraße 22, 
7000 Stuttgart 1 

Stefan Lehmann, Breitenbachstraße 29, 

7613 Hausach/Schwarzwald 

Schaber Genie Computer, Industriestraße 4a, 
7707 Engen 

Martin Schuster, St. Pöltenerstraße 4, 

7920 Heidenheim 


8000 

Conrad Computer GmbH, Schillerstraße 23a, 
8000 München 2 

Münzenloher GmbH, Tölzer Straße 5, 

8150 Holzkirchen 

Dyras, Parsivalstraße 8, 

8500 Nürnberg 40 

Büro 2000 Haas, Dresdner Straße 5 und Fried- 
richstraße 9, 

8520 Erlangen 

Computerladen H. Staudt, Döberlitzer Str. 15, 
8670 Hof 


Sollte „Ihr" Händler die GENIE DATA noch nicht in seinem Sortiment haben, 
so wird er sie sicher gerne für Sie bestellen 1 


INHALTSVERZEICHNIS 


MICKEY MAUS UND MIKROCHIPS 

Damit Sie einmal sehen, was sich auf 
dem Computer-Markt in den USA so 
alles tut, dieser Bericht, von der Messe 
in Anaheim/USA ab Seite 4 


DAS NIM SPIEL 

Mit diesem Spiel stellt Ihnen Ihr Computer 
eine ganz schön verzwickte Aufgabe. 

Der Bericht zeigt wie man den „Nim's" 
erfolgreich begegnet. Seite 6 


METEOR ATTACK 

Ein rasend schnelles Spiel in Maschinen- 
sprache, da wird lljr Computer-Zimmer 
zum Raumschiff! 1 Listing ab Seite 8 


BIORHYTHMUS 

Ein Programm für alle, die jetzt schon 
wissen wollen, wie sie sich nächste Woche 
fühlen. Ab Seite 12 


ABENTEUER-BURG 

Erleben Sie ein fantastisches Abenteuer 
mit vielen Überraschungen. Ab Seite 15 


HIRES-GRAFIK 

Mit dem Colour Genie kann man über 
die programmierbaren Zeichen eine gute 
Grafik-Auflösung erzielen, wie steht 

ab Seite 20 


HAUSHALTS-FINANZEN 

Hat Ihre Frau sich schon über den teuren 

Computer beschwert? Mit diesem Programm 

können Sie ihr beweisen, das man mit 

ihm auch Geld sparen kann! Ab Seite 22 


VOKABEL-TRAINER 

Mit diesem Programm wird Ihr „Jüngster" 
ein Fremdsprachen-Genie. Ab Seite 25 


B TEXT 1.9 

Ein Textverarbeitungs-Programm für 
Genie I + II und den Star DP 510. 

Listing ab Seite 27 


MASTER MIND 

Versuchen Sic einmal den geheimen Code 
Ihres Colour Genie zu knacken. Gar nicht 
so einfach! Ab Seite 32 


PRINT TO LPRINT 

Diese Maschinen-Routine formt alle Print- 
Befehle blitzschnell in Lprint's um. 

Ab Seite 35 


SOLITAIR 

Mit diesem Denkspiel kommt bei Ihnen 
so schnell keine Langeweile mehr auf. 

Ab Seite 37 


TONERZEUGUNG BEIM VIDEO GENIE 
Wie man mit älteren Genie's Töne macht, 
zeigt diese Bauanleitung ab Seite 40 


KALENDER 

Dieses Programm druckt Ihnen für jeden 
gewünschten Monat einen Kalender. Seite 41 


BASIC ERWEITERUNGEN 

Wie man neue Befehle einbaut, steht 

ab Seite 42 


MERGE 

Hängen Sie verschiedene Basic-Programme 
zusammen, wie steht auf Seite 43 


BATTLE OF SARPEDIUM 

Noch ein tolles Spiel. Ab Seite 43 


DER Z80 

Hier sehen Sie wie er funktioniert. Seite 52 


NEUE ROM'S FÜR COLOUR GENIE 

Was sie mehr können? Ab Seite 54 


ELEKTRONIK TEIL I 

Frischen Sie in diesem Kurs Ihr Wissen 
neu auf! Ab Seite 56 
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Exclusivbericht von der Computermesse in Anaheim, USA. 


Die größte Computermesse der Welt in Anaheim 
ist gelaufen. 650 Aussteller registrierten 
1 10.000 Besucher. Das rege Interesse war vor- 
programmiert. Wer Sensationen erwartet hat, 
wurde enttäuscht. 

Für technisch interessierte Laien und Compu- 
tereinsteiger mag es vielleicht sensationell sein, 
wenn ausgepuffte Programme auf raffinierten 
Systemen Ergebnisse auf den Bildschirm brin- 
gen, die an Hexerei grenzen. Der Insider, oder 
gar der frustrierte Freak, konnte über einige 
Dinge bloß müde lächeln, wie zum Beispiel über 
den Piloten in voller Uniform, der mit 'High 
and migthy face' und per Mundwerk ein Flugsi- 
mulator-Programm für Lieschen Müller bedien- 
te. Man merkte recht deutlich: Disneyland ist 
nicht weit! Einer der Computergiganten machte 
von dieser Nachbarschaft sogar direkten Ge- 
brauch: Er mietete für seine Kunden und Inter- 
essenten Donald-Duck's Territorium; ein raffi- 
nierter Schachzug, den Käufer von Morgen an 
den Heimcomputer und seine Möglichkeiten her- 
anzuführen! 

Damit war offenkundig, wo Amerikas Compu- 
terstrategen die Front sehen: Hinein ins Volk! 
Videospielautomaten, welche nicht nur eine Öff- 
nung haben, in die man Software-Pakete hinein- 
schiebt, sondern Rechner mit allen Merkmalen 
des frei programmierbaren Mikrocomputers, ap- 
pellieren an die Kreativität des Menschen und 
geben ihm die Möglichkeit, das 'Phantom' zu 
durchschauen und damit zu beherrschen. Der 
Schwanengesang der reinen Spielcomputer hat 
begonnen. 

PROFIS PROFILIEREN SICH 

Es wäre ungerecht zu behaupten, die Computer- 


messe in Anaheim sei bloß eine Dependance von 
Disneyland gewesen. Die Nähe von 'Silicon-Val- 
ley' war überdeutlich spürbar; die Präsenz jener 
klugen Köpfe, die von Wellblechgaragen aus die 
Welt erobert haben. 

Ist diese 'Wildwest-Zeit der Computerhelden' 
auch längst vorüber und der Pioniergeist von 
damals einem Supermanagement gewichen, so 
ist die Forschung nicht zum Stillstand gekom- 
men. Im Gegenteil. Die Entwicklung geht zur 
Zeit einen logischen, geraden Weg. 

Der Bürocomputer 1983 präsentiert sich als 
Kompaktgerät mit eingebauten 5 1/4" Disket- 
tenlaufwerken und einem 128 KByte Hauptspei- 
cher. Die Diskettenorganisation tendiert nach 
40 Spuren, beidseitig und mit doppelter Schreib- 
dichte. Eine Lösung, die einen guten Kompro- 
miss zwischen Datensicherheit und Datenmenge 
darstellt, denn eine Patentlösung gegen die me- 
chanische Empfindlichkeit von Disketten und 
Laufwerken ist nicht in Sicht. Wenn auch 'Spin 
Physik' eine 5 1/4" Diskette mit einer Speicher- 
kapizität von 10 Mbty(!) präsentiert, so fehlen 
bislang immer noch die Laufwerke, weiche sol- 
che Aufzeichnungsdichten im praktischen Ein- 
satz fehlerfrei gewährleisten. 'Königin 5- 1/4' 
regiert, die Tage von 'Königin-Mutter', 8 Inch, 
sind gezählt und dem Thronfolger mit 3 1/2 
Inches sagt man eine glorreiche Zukunft voraus. 

Bildschirmformat und -große scheinen sich all- 
mählich auf eine Praxisform einzupendeln: 80 
Zeichen pro Zeile bei einer Bildschirmdiagona- 
len von 30,5 cm überwiegen. Verschiedentlich - 
werden auch 132 Zeichen/Zeile angeboten. Die 
Zukunft wird zeigen, wohin der Anwender ten- 
diert. 
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Bei der Bildschirmfarbe hat der Kunde anschei- 
nend entschieden: Das grüne, entspiegelte Dis- 
play dürfte das Rennen gegen die gelben und 
andersfarbenen Brüder gewonnen haben. Als 
Auflösung sind 18 Mhz vorherrschend. 

Auf dem Gebiet der Massenspeicher werden 
noch uneinheitliche Wege gegangen: Bewegliche 
Speicher medien, oder Festspeicher -das ist noch 
die Frage. Aber was an Speicherkapazitäten an- 
geboten wird- ob Harddisk oder Winchesterlauf- 
werk ist mehr als beachtlich. Der Durchschnitt 
liegt immerhin bei 10 MBty. 


DIE TRAGBAREN MARSCHIEREN 

Osborne -ein Pionier der Portables unter den 
Computern- hat seinen Vorsprung mit dem neu- 
en 'Executive' weiter ausgebaut. Allgemeiner 
Trend bei den Tragbaren: Kleiner, leichter -und 
größere Bildschirme. Mußte man früher kräftig, 
gut zu Fuß und scharfsinnig sein, um ungetrübte 
Freude mit einem 'Tragbaren' zu haben, so 
braucht man heute auch als schwächlicher Bril- 
lenträger mit Plattfüßen im Urlaub nicht mehr 
auf seinen Computer zu verzichten. 

Die Entwicklung der kleinen, handlichen zeigt 
gleichzeitig aber noch etwas: Die Zeit der Sau- 
rier ist endgültig vorbei. Die verbleibenden 
Monster dienen nur noch auf wissenschaftlichen 
Gebieten und sind im Sondereinsatz in der Ver- 
waltung. 


DIE KLEINEN SIND DIE GROSSEN 

Begriffe wie Heim-, Micro- und Bürocomputer 
verschwimmen immer mehr. Die Grenzen sind 
fließend geworden, seit die Leistung der 'Klei- 
nen' und ihre Speicherkapazitäten gestiegen 
sind. 



DIE ELEKTRONISCHE SCHREIBFLUNDER 

Wesentlich mehr Zukunft kann man einer Ent- 
wicklung geben, welche zwar wie eine Schreib- 
maschine aussieht, aber die mit einer herkömm- 
lichen Schreibmaschine nur noch weitschichtig 
verwandt ist: Ein Schreibgerät mit genormter 
Tastatur, Speicher- und Druckwerk, das wie ei- 
ne Schreibmaschine bedient wird. So quasi ne- 
benher kann man mit dem Ding auch rechnen, 
Ergebnisse und eingetippte Briefe mittels einge- 
bauter Mini-Cassette speichern. Ein Mini-Dis- 
play mit Flüssigkeitskristallanzeige dient zur 
Editierung und Kontrolle. Und das ganze in su- 
perflacher Kofferform: Ein Minicomputer, spe- 
zialisiert auf Schreibarbeiten, kombiniert mit 
Rechenfunktionen. 5 Kilo geballte Technik. Ist 
das die Reiseschreibmaschine der Zukunft? 


ZAUBERWORT * 16 BIT * 


Merklich und gleichzeitig schmerzlich für einige 
Schreibmaschinenhersteller, übernimmt der 
Computer allmählich die Funktion der Schreib- 
maschine. Die Elektrifizierung der guten, alten 
Dampf (schreib)maschine konnte diesen Trend 
nicht auf halten. In Elektrische serienmäßige 
Schnittstellen einzubauen, um sich an einen 
Computer anzuhängen, wird das Sterben der 
Nur-Schreibmaschine vielleicht einige Jahre hin- 
auszögern, aber nicht verhindern können. Die 
Schreibarbeit der Zukunft erledigt der Micro im 
Verein mit einem Drucker. Nadeldrucker? Tin- 
tenstrahl? Laser? Wer wird das Rennen mach- 
en? (Zuschriften unter "Ich bin der Prophet" an 
die Redaktion.) 


Der 16-Bit-Prozessor, der jeden Programmierer 
ins Schwärmen bringt, hat bei fast allen Gerä- 
ten Eingang gefunden. Aber noch muß er sich 
den engen Platz im Gehäuse mit seinem älter- 
en, 8-bitigen Bruder teilen. Der Grund ist ein- 
fach: Die 16-Bit-Software ist bis dato einfach 
noch zu dünn gesät auf dem Markt, als daß man 
mit einem Nur-16-Bit-Rechner ein Anwender- 
volk überzeugen könnte. Es wird aber eine Fra- 
ge der Zeit sein, wann Mister 8-Bit zu Grabe 
getragen wird. 

Oellner 
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Wissen Sie, wie Ihr TRS-80 auf die Eingabe 
'PRINT 12 AND 9' reagiert? Oder was ausgege- 
ben wird, wenn Sie 'PRINT 12 OR 9' eingeben? 
Es kommt nicht etwa die Meldung 'SN-Error', 
sondern der Computer gibt die Zahl '8' und im 
zweiten Fall die Zahl '13' aus. 

Der TRS-80 gibt die logische Verknüpfung der 
binären Darstellung der eingegebenen Zahlen 
aus: 

12 (dezimal) = 1100 (binär) 

9 (dezimal) = 1001 (binär). 

Das logische Und: 1000 (binär) = 8 (dezimal) 

Das logische Oder: 1101 (binär) = 13 (dezimal). 
Diese bemerkenswerte Tatsache kann man vor 
allem bei Algorithmen nutzen, die die Binärdar- 
stellung von Zahlen benötigen. Angefügt ist das 
Beispiel des Nim-Spiels. 

Bei diesem Spiel (siehe Programm) führt z. 
B. folgende Situation bei bestmöglichem Spiel 
zum Verlust für den Spieler, der am Zuge ist: 


1. Haufen 4 Steine 

2. Haufen 6 Steine 

3. Haufen 2 Steine 
Spaltensumme: 


100 (binär) 
110 (binär) 
010 (binär). 
220 


In jeder Spalte befindet sich eine gerade Anzahl 
von Einsen. Der am Zuge befindliche Spieler 
muß nun von einem Haufen einen oder mehr 
Steine nehmen. Dadurch tritt aber in mindes- 
tens einer Spalte eine ungerade Anzahl von Ein- 
sen auf. 

Der Gegenspieler kann mit seinem nächsten Zug 
wieder auf eine gerade Anzahl von Einsen in al- 
len Spalten kommen und so gewinnen. 

Diese Gesetzmäßigkeit im Nim-Spiel wird vom 
Programm ausgenutzt. Wer das Spiel nicht 
kennt, macht aller Wahrscheinlichkeit nach frü- 
her oder später einen Fehler und verliert. 


Bernd Plumhoff 


IO REM ****************** DAS NIM— SPIEL *************«**wyt* 

20 DEFINT A-Z 
30 CLS 

40 PRINT, "DAS NIM-SPIEL" 

50 PRINT 

60 PRINT" MAN DARF VON EINEM HAUFEN SO VIELE STEINE ENTFERNEN, WIE MAN" 
70 PR I NT " MOECHTE . WER DEN LETZTEN STEIN ENTFERNT, GEWINNT." 

80 PR INT "ZUERST WIRD DIE ANZAHL DER HAUFEN UND DER STEINE PRO HAUFEN" 

90 PR INT "FESTGELEGT. " 

100 PRINT 

110 INPUT "WIEVIELE HAUFEN" ?N 
120 IF N<2 THEN HO 
130 DIM HAUFEN (N> 

140 FOR 1=1 TO N 

150 PRINT "WIEVIELE STEINE HAT DER";I; 

160 INPUT “ . HAUFEN" 5 HAUFEN<I) 

170 IF HAUFEN <1X1 THEN PR INT "DAS GEHT NICHT!": GOTO 150 


SOFTWARE 


180 NEXT I 
190 PRINT 

200 INPUT "1=C0MPUTER BEGINNT 2=SPIELER BEGINNT“ ; A 
210 IF A=1 THEN 330 
220 IF A< >2 THEN 200 
230 PRINT 

240 INPUT "VON WELCHEM HAUFEN WOLLEN SIE STEINE NEHMEN (WENN SIE DIE 
SEITEN TAUSCHEN WOLLEN, GEBEN SIE ’ T' EIN) "JA* 

250 IF A*="T" OR A*="t" THEN 330 ELSE A=VAL ( A$) 

260 IF A< 1 OR A>N THEN 240 

270 PR I NT " W I E V I EL STEINE WOLLEN SIE VOM'';A; 

280 INPUT". HAUFEN NEHMEN" 5 B 
290 IF B< 1 OR HAUFEN (AXB THEN 270 
300 HAUFEN ( A ) =H AUFEN ( A ) -B 
310 1=1 

320 IF I<=N THEN IF HAUFEN ( I ) =0 THEN 1=1+1: GOTO 320 ELSE 330 ELSE PRINT" 
GRATULIERE. SIE HABEN GEWONNEN.": PRINT"SIE KENNEN ANSCHEINEND DEN ALGORI 
THMUS. “ : GÖT0510 
330 C=H AUFEN ( 1 ) 

340 FOR 1=2 TO N 

350 C=(C OR HAUFEN ( I ) ) AND NOT <C AND HAUFEN (I)) 

360 REM C ERHAELT DAS EXKLUSIVE ODER VON C UND HAUFEN ( I ) 

370 NEXT I 
380 1=1 

390 IF COO THEN 430 

400 IF HAUFEN ( I ) >0 THEN D=RND ( HAUFEN ( I )) : GOTO 470 
410 1=1+1 
420 GOTO 400 

430 D=(C OR HAUFEN (I)) AND NOT(C AND HAUFEN <I)> 

440 REM WIEDER WIRD DAS EXKLUSIVE ODER GEBILDET 
450 IF D >HAUFEN ( I ) THEN 1 = 1 + 1: GOTO 430 
460 D=HAUFEN ( I ) -D 

470 PRINT" ICH NEHME" ;D5 "STEIN (E> VOM";I;". HAUFEN" 

480 HAUFEN < I ) =HAUFEN < I ) -D 
490 1=1 

500 IF I<=N THEN IF HAUFEN ( I ) =0 THEN 1=1+1: GOTO 500 ELSE 540 ELSE PRINT" 
ICH HABE GEWONNEN.": PR INT "ME IN ALGORITHMUS FUNKTIONIERTE." 

510 INPUT "NOCH EIN SPIEL (J/N)";A* 

520 IF A*="N" OR A*=*’n M THEN END 
530 RUN 

540 PR INT" HAUFEN: 

550 FOR 1=1 TO N 

560 PRINT TAB (5+4*1); I; 

570 NEXT I 
580 PRINT 

570 PRINT"STEINE: "; 

600 FOR 1=1 TO N 

610 PRINT TAB (5+4*1); HAUFEN < I ) ; 

620 NEXT I 
630 PRINT 
640 GOTO 230 


KEINE LUST MEHR 

ZUM TIPPEN? 

DA HILFT DER GENIE DATA- PROGRAMMSERVICE, SIEHE UMSCHLAG HINTEN ] 
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METEOR ATTACK 


Meteor Attack ist ein Spiel, wie es bereits vie- 
le auf dem Markt gibt. Die Bedienung des 
Spieles ist sehr einfach. Mit dem Links- und 
dem Rechts-Pfeil wird die eigene BASIS, die 
sich am unteren Rand des Bildschirms befindet, 
gesteuert. Schießen kann man mit der "Pfeil 
nach oben"-Taste. Als Besonderheit lassen sich 
mit der "Pfeil nach unten"-Taste Bomben wer- 
fen. Diese löschen den ganzen Bildschirm. Ziel 
des Spieles ist es, möglichst viele Meter in das 
Gebiet des Feindes einzudringen. 

Bei diesem Flug hat man es mit 3 Arten von 
Flugobjekten zu tun: 

1. Meteoriten, die durch kleine weiße Gebilde 
dargestellt werden. 

2. Die Feinde. Sie kommen nicht so oft wie die 
Meteoriten vor und sind am größten. 

3. Die Versorgungsschiffe. Dieses sind längliche 
Gebilde, die sehr selten erscheinen. 

Die Berührung mit allen 3 Flugobjekten führt 
zur Zerstörung der Basis. Am Anfang des Spie- 
les verfügt man über 4 Basisschiffe. Das Spiel 
ist beendet, wenn alle Schiffe zerstört sind. 
Die Energiemenge ist auf 110 Energieeinheiten 
begrenzt. Ein Schuß verbraucht 1, eine Bombe 
10 Energieeinheiten. Ist der Energievorrat völ- 
lig verbraucht, ist es nicht mehr möglich, den 
Feind zu zerstören. Um das Spiel attraktiver 
zu gestalten, wurden noch einige Extras einge- 
baut: 

- Damit das Programm auch akustisch interes- 
sant ist, habe ich eine Tonroutine eingebaut. 


- Wenn man 500 Meter in das feindliche Gebiet 
eingedrungen ist, erhält man 50 Bonusenergie- 
einheiten. 

- Viele Spiele werden bereits nach kurzer Zeit 
uninteressant, da sie zu einfach sind. Zur Ver- 
meidung dessen werden die Schiffe ab 800 Me- 
ter schneller. 

- Um zum Titelbild zurückzugelangen, genügt 
ein Druck auf die (BREAK) Taste. 

- Erreicht man die seit dem Einladen des Pro- 
grammes beste Punktzahl, kann man seinen 
Namen eingeben (HIGH-SCORE). 

Um eine möglichst gute Graphik zu erreichen, 
wurde eine Vielzahl von Routinen zur Bild- 
schirmmanipulation integriert: Eine Bildschirm- 
invertierroutine, eine Routine, die den Bild- 
schirm mit beliebigen Graphikzeichen füllt und 
eine "SCROLL-DOWN"-Routine. Da das Pro- 
gramm möglichst kurz sein sollte, werden eini- 
ge ROM-Routinen aufgerufen: 

Bildschirm löschen, Text schreiben und Text- 
eingabe. 

Mein mit nur 16 K-RAM ausgestatteter TRS SO 
kann nur ca. 1 K Maschinensprache assemblie- 
ren. Deshalb schrieb ich 3 einzelne Assembler- 
programme (Titelbild, eigentliches Spiel, Ende 
und HIGHSCORE), die ich mit einem Monitor 
zusammenfügte. So konnte ich ohne große Pro- 
bleme ein Maschinenspracheprogramm erstel- 
len, für das man eigentlich einen 32 K großen 
Speicherbereich benötigt. 


ANFANGS- und 


ANSPRUNGSADRESSE: 4A00 H / ENDADRESSE: 5533 H / 


r r»rv. 

MlüfcJ 

nn 

L ,U 

C3 

01 

21 

C0 

3C 

22 

20 

40 

21 

E2 

4B 

CD 

07 

28 

21 

4A1 0 

40 

3D 

22 

20 

40 

21 

03 

4C 

CD 

07 

28 

21 

80 

3D 

22 

20 

4020' 

40 

21 

0F 

4C 

CD 

07 

28 

2E 

84 

01 

40 

9C 

CD 

00 

4B 

2D 

4030 

C2 

23 

40 

CD 

C9 

01 

21 

55 

3C 

22 

20 

40 

21 

22 

4C 

CD 

4040 

A7 

2S 

21 

81 

3C 

22 

20 

40 

21 

3C 

4C 

CD 

07 

28 

21 

CI 

4A50 

3C 

22 

20 

40 

21 

73 

4C 

CD 

07 

28 

21 

01 

3D 

22 

20 

40 

4080 

21 

05 

4C 

CD 

07 

28 

21 

41 

3D 

22 

20 

40 

21 

D0 

4C 

CD 

4A70 

07 

2S 

21 

81 

3D 

22 

20 

40 

21 

F7 

4C 

CD 

07 

28 

CD 

25 

4A80 

4B 

21 

81 

3F 

22 

20 

40 

21 

1F 

4D 

CD 

07 

28 

21 

40 

38 

4A90 

CB 

4E 

C2 

BD 

4B 

CB 

4E 

C2 

BC 

40 

01 

40 

9C 

CD 

00 

4B 

4000 

21 

81 

3F 

08 

64 

0E 

84 

CD 

03 

4B 

22 

20 

40 

21 

D3 

4E 

4-AB0 

CD 

07 

2S 

01 

40 

9C 

CD 

00 

4B 

C3 

81 

40 

CD 

C9 

01 

21 

4AC0 

41 

3C 

22 

20 

40 

21 

54 

4D 

CD 

07 

28 

21 

81 

3C 

22 

20 

4AD0 

40 

21 

93 

4D 

CD 

07 

28 

21 

Ci 
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22 

20 

40 

21 
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4D 

4AE0 
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07 

2S 

21 

01 

3D 


20 

40 

21 

E2 

4D 

CD 

07 

28 

21 



SOFTWARE 


4OF0: 

41 

3D 

22 

20 

40 

21 

02 

4E 

CD 

07 

28 

21 

81 

3D 

22 

20 

4B00: 

40 

21 

25 

4E 

CD 

07 

28 

21 

CI 
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22 

20 

40 

21 

4E 

4E 

4B10s 

CD 

07 

28 

21 

01 

3E 

22 

20 

40 

21 

B3 

4E 

CD 

07 

28 

CD 

4B20s 

25 

4B 

C3 

BO 

4B 

06 

40 

21 

00 

3C 

36 

83 

23 

10 

FB 

06 

4B30: 

40 

21 

C0 

3F 

3B 

B0 

23 

10 

FB 

06 

10 

21 

00 

3C 

36 

95 

4B40: 

11 

40 

00 

ED 

50 

10 

F7 

06 

10 

21 

3F 

3C 

36 

00 

11 

40 

4B50: 

00 

ED 

50 

10 

F7 

3E 

97 

32 

00 

3C 

3E 

OB 

32 

3F 

3C 

3E 

4BB0 : 

B5 

32 

C0 

3F 

3E 

BO 

32 

FF 

3F 

C9 

21 

81 

3F 

22 

20 

40 

4B70: 

21 

C2 

4E 

CD 

07 

28 

21 

40 

38 

CB 

4E 

C2 

BD 

4B 

01 

40 

4BB0 : 

9C 

CD 

00 

4B 

0B 

B4 

0E 

64 

CD 

09 

4B 

21 

81 

3F 

22 

20 

4B90: 

40 

21 

D3 

4E 

CD 

07 

28 

01 

40 

9C 

CD 

00 

4B 

C3 

60 

4E< 

4BO0S 

78 

47 

10 

FE 

0D 

C2 

01 

4B 

C9 

50 

42 

3E 

01 

D3 

FF 

10 

4BB0 s 

FE 

42 

3E 

02 

D3 

FF 

10 

FE 

0D 

C2 

00 

4B 

C9 

C5 

0E 

03 

4BC0: 

0B 

14 

CD 

09 

4B 

CI 

21 

00 

3C 

01 

00 

04 

16 

00 

7E 

FE 

4BD0 : 

20 

28 

03 

IG 

FF 

35 

23 

0B 

78 

Bl 

20 

F2 

BO 

20 

DE 

C3 

4BE0 s 

E0 

4E 

53 

43 

48 

4F 

4E 

20 

57 

49 

45 

44 

45 

52 

20 

45 

4BF0 : 

49 

4E 

20 

4E 

45 

55 

45 

52 

20 

49 

4E 

56 

41 

44 

45 

52 

4C00 s 

20 

21 

22 

41 

42 

45 

52 

20 

4E 

45 

49 

4E 

20 

21 

22 

44 

4C10 ■ 

41 

53 

20 

49 

53 

54 

20 

44 

4F 

43 

4B 

20 

2E 

20 

2E 

20 

4C20: 

2E 

22 

4D 

20 

45 

20 

54 

20 

45 

20 

4F 

20 

52 

20 

20 

20 

4C30: 

41 

20 

54 

20 

54 

20 

41 

20 

43 

20 

4B 

22 

55 

53 

45 

20 

4C40: 

54 

48 

45 

20 

41 

52 

52 

4P 

57 

20 

4B 

45 

59 

53 

20 

54 

4C50: 

4F 

20 

4D 

4F 

5B 

45 

20 

59 

4F 

55 

52 

20 

53 

48 

49 

50 

4C60: 

20 

54 

4F 

20 

4C 

45 

46 

54 

20 

41 

4E 

44 

20 

52 

49 

47 

4C70S 

48 

54 

22 

55 

53 

45 

20 

54 

48 

45 

20 

55 

50 

2D 

41 

52 

4CB0: 

52 

4F 

57 

20 

54 

4F 

20 

53 

48 

4F 

4F 

54 

20 

44 

4F 

57 

4C90 : 

4E 

20 

41 

4C 

49 

45 

4E 

53 

20 

41 

4E 

44 

20 

4D 

45 

54 

4CA0: 

45 

4F 

52 

53 

22 

55 

53 

45 

20 

54 

48 

45 

20 

44 

4F 

57 

4CB0: 

4E 

20 

41 

52 

52 

4F 

57 

20 

54 

4F 

20 

54 

48 

52 

4F 

57 

4CC0: 

20 

54 

48 

45 

20 

53 

4D 

41 

52 

54 

2D 

42 

4F 

4D 

42 

22 

4CD0 s 

54 

48 

45 

20 

53 

4D 

41 

52 

54 

20 

42 

4F 

4D 

42 

20 

43 

4CE0 s 

4C 

45 

41 

4E 

53 

20 

54 

48 

45 

20 

57 

48 

4F 

4C 

45 

20 

4CF0 : 

53 

43 

52 

45 

45 

4E 

22 

50 

52 

45 

53 

53 

20 

3C 

42 

52 

4D00 : 

45 

41 

4B 

3E 

20 

54 

4F 

20 

52 

45 

54 

55 

52 

4E 

20 

54 

4D10S 

4F 

20 

54 

48 

49 

53 

20 

50 

49 

43 

54 

55 

52 

45 

22 

50 

4D20 : 

52 

45 

53 

53 

20 

3C 

45 

4E 

54 

45 

52 

3E 

20 

46 

4F 

52 

4D30: 

20 

4D 

4F 

52 

45 

20 

49 

4E 

53 

54 

52 

55 

43 

54 

49 

4F 

4D40: 

4E 

53 

2C 

20 

3C 

43 

4C 

45 

41 

52 

3E 

20 

54 

4F 

20 

50 

4D505 

4C 

41 

59 

22 

41 

55 

4B 

47 

41 

42 

45 

30 

20 

4D 

4F 

45 

4DB0: 

47 

4C 

49 

43 

48 

53 

54 

20 

57 

45 

49 

54 

20 

49 

4E 

20 

4D70 : 

44 

41 

53 

20 

47 

45 

47 

4E 

45 

52 

49 

53 

43 

48 

45 

20 

4DB0: 

47 

45 

42 

49 

45 

54 

20 

45 

49 

4E 

44 

52 

49 

4E 

47 

45 

4D90: 

4E 

22 

3B 

53; 

49 

45 

20 

48 

41 

42 

45 

4E 

20 

41 

4D 

20 

4DO0: 

41 

4E 

46 

41 

4E 

47 

20 

44 

45 

53 

20 

53 

50 

49 

45 

4C 

4DB0 : 

45 

53 

20 

31 

32 

30 

20 

45 

4E 

45 

52 

47 

49 

45 

45 

49 

4DC0S 

4E 

48 

45 

49 

54 

45 

4E 

22 

53 

43 

48 

55 

53 

53 

20 

30 

4DD0 5 

20 

31 

20 

45 

4E 

45 

52 

47 

49 

45 

45 

49 

4E 

48 

45 

49 

4DE0 : 

54 

22 

53 

4D 

41 

52 

54 

42 

4F 

4D 

42 

20 

30 

20 

31 

30 

4DF0: 

20 

45 

4E 

45 

52 

47 

49 

45 

45 

49 

4E 

48 

45 

49 

54 

45 

4E00 s 

4E 

22 

53 

49 

45 

20 

48 

41 

42 

45 

4E 

20 

34 

20 

53 

43 

4E10: 

48 

49 

4B 

4E 

45 

20 

50 

55 

52 

20 

56 

45 

52 

46 

55 

45 

4E20S 

47 

55 

4E 

47 

22 

53 

50 

49 

45 

4C 

45 

4E 

44 

45 

20 

30 

4E30 : 

20 

41 

4C 

4C 

45 

20 

53 

43 

4S 

49 

46 

46 

45 

20 

53 

49 

4E40: 

4E 

44 

20 

5B 

45 

52 

42 

52 

41 

55 

43 

48 

54 

22 

42 

45 

4E50: 

49 

20 

35 

30 

30 

20 

4D 

45 

54 

45 

52 

4E 

20 

42 

45 

4B 

4EB0 5 

4F 

4D 

4D 

45 

4E 

20 

53 

49 

45 

20 

35 

30 

20 

42 

4F 

4E 

4E70: 

55 

53 

45 

4E 

45 

52 

47 

49 

45 

45 

49 

4E 

48 

45 

49 

54 

4EB0 : 

45 

4E 

22 

57 

45 

4E 

4E 

20 

53 

49 

45 

20 

38 

30 

30 

20 

4E90 : 

4D 

45 

54 

45 

52 

20 

45 

52 

52 

45 

49 

43 

48 

54 

20 

48 



SOFTWARE 


4EO0: 41 

42 

45 

4E 

2C 

57 

45 

43 

48 

53 

45 

4C 

54 

20 

44 

49 

4EB0 : 45 

20 

47 

45 

53 

43 

48 

57 

49 

4E 

44 

49 

47 

4B 

45 

49 

4EC0 

54 

22 

3C 

43 

4C 

45 

41 

52 

3E 

20 

54 

4F 

20 

53 

54 

41 

4ED0 

52 

54 

22 

FC 

22 

3B 

pr 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

4EE0S CD 

C9 

01 

21 

E8 

03 

22 

0E 

49 

3E 

78 

32 

00 

49 

21 

00 

4EF0 

00 

22 

0C 

49 

21 

04 

00 

22 

04 

49 

3E 

20 

32 

00 

49 

21 

4F00 

C0 

3F 

CD 

7C 

51 

22 

20 

40 

21 

40 

52 

CD 

07 

28 

3E 

04 

4F10 

32 

02 

49 

06 

0F 

21 

00 

3C 

36 

20 

11 

3F 

00 

ED 

50 

36 

4.F20 

20 

23 

3E 

20 

10 

F2 

30 

04 

49 

FE 

00 

CO 

B5 

52 

FO 

B5 

4F30 

52 

30 

02 

49 

B7 

C2 

43 

4F 

CD 

6C 

50 

3E 

04 

32 

02 

49 

4F40 

C3 

26 

4F 

30 

02 

49 

3D 

32 

02 

49 

21 

40 

38 

CB 

6E 

C2 

4F50 

82 

4F 

21 

40 

38 

CB 

76 

C2 

BF 

4F 

CB 

5E 

C2 

33 

40 

CB 

4FE0 

GE 

CO 

6F 

4F 

30 

00 

49 

FE 

00 

FO 

6F 

4F 

CD 

B2 

51 

20 

4F70 

0E 

49 

E5 

CI 

CD 

40 

52 

21 

40 

38 

CB 

5E 

C2 

FC 

4F 

C3 

4FS0 

2E 

4F 

30 

00 

49 

FE 

01 

C2 

93 

4F 

01 

D0 

07 

CD 

40 

52 

4F90 

C3 

26 

4F 

21 

C0 

3F 

CD 

7C 

51 

22 

20 

40 

21 

52 

52 

CD 

4FO0 

07 

28 

30 

00 

49 

21 

C0 

3F 

CD 

7C 

51 

2B 

22 

20 

40 

21 

4FB0 

40 

52 

CD 

07 

28 

30 

00 

49 

3D 

32 

00 

49 

C3 

52 

4F 

30 

4FC0 

00 

49 

FE 

39 

C2 

D0 

4F 

01 

D0 

07 

CD 

40 

52 

C3 

26 

4F 

4-FD0 

21 

C0 

3F 

CD 

7C 

51 

22 

20 

40 

21 

52 

52 

CD 

07 

28 

21 

4FE0 

C0 
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30 

00 

49 

CD 

7C 

51 

23 

22 

20 

40 

21 

40 

52 

CD 

4FF0 

07 

28 

30 

00 

49 

3C 

32 

00 

49 

C3 

26 

4F 

30 

00 

49 

FE 

5000 

01 

FO 

26 

4F 

30 

00 

49 

21 

C0 

3F 

CD 

7C 

51 

11 

02 

00 

5010 

ED 

50 

06 

0F 

11 

40 

00 

ED 

52 

7E 

FE 

20 

C2 

33 

50 

36 

5020 

20 

F5 

C5 

D5 

06 

01 

50 

CB 
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CD 

09 

4B 

Dl 

CI* 

Fl 

36 

5030 

20 

10 

El 

21 

00 
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11 

40 

00 

19 

10 

FD 

11 

3F 

00 

ED 

5040 

52 

06 

3C 

36 

20 

23 

10 

FB 

06 

32 

78 

CE 

32 

57 

0E 

01 

5050 

C5 

CD 

09 

4B 

CI 

78 

FE 

09 

C2 

60 

50 

C5 

CD 

GC 

50 

CI 

50E0 

10 

ES 

30 

00 

49 

3D 

32 

00 

49 

C3 

2E 

4F 

20 

0C 

49 

23 

5070 

22 

0C 

49 

01 

20 

03 

7C 

BS 

C2 

86 

50 

7D 

B9 

C2 

86 

50 

50S0 

21 

90 

01 

22 

0E 

49 

20 

0C 

49 

01 

F4 

01 

7C 

BS 

C2 

99 

5090 

50 

7D 

B9 

C2 

99 

50 

CD 

03 

52 

20 

06 

49 

7E 

FE 

FF 

CO 

5000 

09 

50 

23 

22 

06 

49 

C3 

B2 

50 

21 

74 

52 

22 

06 

49 

CS 

50B0 

26 

4F 

21 

00 

3C 

CD 

7C 

51 

22 

20 

40 

ED 

5F 

FE 

0E 

FO 

50C0 

CS 

50 

21 

50 

52 

C3 

D8 

50 

ED 

5F 

FE 

05 

FO 

D5 

5ß 

21 

50D0 

5E 

52 

C3 

DS 

50 

21 

64 

52 

CD 

07 

28 

CD 

E6 

50 

16 

64 

50E0 

0E 

00 

CD 

09 

4B 

C9 

CD 

31 

51 

11 

BF 

3F 

21 

7F 

3F 

01 

50F0 

80 

03 

ED 

B8 

21 

00 

3C 

23 

22 

20 

40 

21 

6B 

52 

CD 

07 

5100 

28 

3E 

20 

32 

00 

3C 

32 

3F 

3C 

21 

C0 

3F 

22 

20 

40 

20 

5110 

04 

49 

CD 

OF 

0F 

21 

F9 

3F 

22 

20 

40 

21 

52 

52 

CD 

07 

5120 

28 

21 

FC 

3F 

22 

20 

40 

30 

00 

43 

6F 

26 

00 

CD 

OF 

0F 

5130 

C9 

06 

05 

30 

00 

49 

88 

3D 

21 

C0 

3F 

CD 

7C 

51 

11 

40 

5140 

00 

ED 

52 

7E 

FE 

20 

CO 

79 

51 

FE 

30 

FO 

79 

51 

2E 

0F 

5150 

CD 

86 

51 

0E 

02 

55 

CB 

22 

CB 

22 

CB 

22 

CB 

22 

CD 

09 

51E0 

4B 

CD 

86 

51 

2D 

C2 

50 

51 

21 

C0 

3F 

22 

20 

40 

20 

04 

5170 

49 

2B 

22 

04 

49 

CD 

OF 

0F 

cg 

10 

B8 

C9 

85 

6F 

3E 

00 

51S0 

SC 

67 

30 

00 

49 

C9 

E5 

D5 

C5 

11 

00 

3C 

01 

00 

04 

10 

5190 

07 

DE 

20 

CO 

9E 

51 

07 

DE 

60 

FO 

OS 

51 

ED 

44 

C6 

BF 

5100 

FE 

80 
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07 

51 

3E 

20 
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13 

ED 

09 

EO 

8F 

51 

CI 

Dl 

51B0 

El 
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86 

51 

CD 

86 

51 

06 

10 

C5 

CI 

48 

78 

CB 

27 

51C0 

CB 

27 

C6 

8C 

57 

C5 

CD 

09 

4B 

CI 

10 

EE 

30 

00 

49 

D6 

51D0 

00 

32 

00 

49 

3E 

0F 

32 

08 

49 

21 

01 

3C 

11 

02 

3C 

3E 

5 1E0 

20 

77 

01 

3C 

00 

ED 

B0 

E5 

D5 

IE 

F0 

0E 

02 

CD 

09 

4B 

51F0 

Dl 

El 

30 

08 

49 

3D 

CS 

32 

08 

49 

06 

04. 

23 

13 

10 

FC 

5200 

C3 

DF 

51 

30 

00 

49 

FE 

4E 

F2 

10 

52 

CE 

32 

C3 

12 

52 

5210 

3E 

80 

32 

00 

49 

21 

D9 

3D 

22 

20 

40 

21 

6D 

52 

CD 

07 

5220 

28 

26 

IE 

2E 

64 

0E 

01 

45 

CD 

09 

4B 

2D 

C2 

25 

52 

25 

5230 

C2 

23 

52 

21 

D9 

3D 

22 

20 

40 

21 

52 

52 

CD 

07 

28 

C9 

5240 

78 

47 

10 

FE 

0D 

C2 

41 

52 

C9 

00 

B4 

BS 

BE 

BC 

B0 

94 

5250 

22 

3B 

20 

20 

20 

20 

20 

20 

22 

3B 

BC 

9F 

84 

00 

99 

B7 



SOFTWARE 


GENIE 111 11 


5260 

BF 

BB 

06 

00 

20 

3D 

2D 

3D 

20 

22. 

3B 

FF 

00 

42 

4F 

4E 

5270 

55 

53 

22 

3B 

00 

14 

2F 

05 

01 

30 

22 

0E 

10 

04 

28 

18 

5280 

30 

22 

05 

36 

13 

IE 

01 

00 

30 

32 

14 

28 

IE 

0F 

21 

30 

5290: 13 

00 

18 

38 

30 

1B 

2F 

2E 

03 

2F 

2B 

30 

10 

05 

IE 

26 

5200 

35 

12 

22 

33 

21 

22 

28 

14 

35 

30 

05 

25 

18 

IE 

28 

00 

52B0 

14 

30 

01 

FF 

FF 

3E 

80 

F5 

CD 

C5 

53 

Fl 

21 

00 

3C 

77 

52C0! 

11 

01 

3C 

01 

FF 

03 

ED 

B0 

F5 

CD 

C5 

53 

06 

C8 

0E 

01 

52D0 

CD 

09 

4B 

Fl 

3C 

FE 

BF 

C2 

B7 

52 

CD 

C9 

01 

21 

14 

3C 

52E0 

22 

20 

40 

21 

1F 

54 

CD 

07 

28 

21 

C0 

3C 

22 

20 

40 

21 

52F0 

31 

54 

CD 

07 

28 

20 

0C 

49 

CD 

OF 

0F 

21 

00 

3D 

22 

20 

5300 

40 

21 

62 

54 

CD 

07 

28 

20 

08 

55 

CD 

OF 

0F 

21 

40 

3D 

5310: 22 

20 

40 

21 

7B 

54 

CD 

07 

28 

21 

F3 

54 

CD 

07 

28 

2E 

5320 

28 

01 

60 

EO 

CD 

BC 

53 

2D 

C2 

21 

53 

20 

0C 

49 

ED 

4B 

5330 

08 

55 

ED 

42 

FO 

F6 

53 

CO 

F6 

53 

CD 

C9 

01 

21 

00 

3C 

5340 

22 

20 

40 

21 

85 

54 

CD 

07 

28 

21 

80 

3C 

22 

20 

40 

21 

5350 

0E 

54 

CD 

07 

28 

21 

C0 

3C 

22 

20 

40 

21 

DO 

54 

CD 

07 

5380 

28 

DD 

21 

84 

53 

DD 

4E 

00 

79 

B7 

CO 

01 

53 

DD 

46 

01 

5370 

CD 

09 

4B 

DD 

23 

DD 

23 

01 

FF 

FF 

21 

30 

00 

09 

DO 

7D 

5380 

53 

C3 

65 

53 

00 

90 

3F 

02 

5C 

OC 

60 

90 

00 

90 

40 

90 

5390 

70 

80 

F0 

90 

5D 

02 

5B 

OD 

60 

90 

E0 

6B 

48 

5F 

FF 

54 

5300 

00 

21 

F3 

54 

06 

14 

36 

20 

23 

10 

FB 

21 

F3 

54 

06 

14 

53B0 

CD 

D9 

05 

20 

0C 

49 

22 

08 

55 

C3 

F6 

53 

78 

47 

10 

FE 

53C0 

0D 

C2 

BD 

53 

C9 

21 

4C 

3D 

22 

20 

40 

21 

00 

55 

CD 

07 

53D0 

■28 

21 

SC 

3D 

22 

20 

40 

21 

22 

55 

CD 

07 

28 

21 

CC 

3D 

53E0 

22 

20 

40 

21 

34 

55 

CD 

07 

28 

21 

0C 

3E 

22 

20 

40 

21 

53F0 

45 

55 

CD 

07 

28 

C9 

06 

40 

C5 

21 

CI 

3C 

11 

C0 

3C 

01 

5400 

40 

03 

ED 

B0 

06 

0D 

21 

FF 

3C 

11 

40 

00 

OF 

36 

20 

ED 

5410 

50 

10 

FA 

01 

ES 

03 

CD 

BC 

53 

CI 

10 

DD 

C3 

33 

40 

47 

5420 

20 

41 

20 

4D 

20 

45 

20 

20 

20 

4F 

20 

56 

20 

45 

20 

52 

5430 

22 

4E 

55 

4D 

42 

45 

52 

20 

4F 

46 

20 

4D 

45 

54 

45 

52 

5440 

53 

2C 

20 

59 

4F 

55 

20 

49 

4E 

56 

41 

44 

45 

44 

20 

54 

5450 

48 

45 

20 

41 

4C 

49 

45 

4E 

20 

53 

59 

53 

54 

45 

4D 

20 

5480 

30 

22 

48 

49 

47 

48 

45 

53 

54 

20 

53 

43 

4F 

52 

45 

20 

5470 

4F 

46 

20 

54 

4F 

44 

41 

59 

20 

30 

22 

4D 

41 

44 

45 

20 

5480 

42 

59 

20 

30 

22 

59 

4F 

55 

20 

48 

41 

56 

45 

20 

4D 

41 

5490 

44 

45 

20 

54 

48 

45 

20 

48 

49 

47 

48 

45 

53 

54 

20 

53 

5400 

43 

4F 

52 

45 

20 

4F 

46 

20 

54 

4F 

44 

41 

59 

22 

50 

4C 

54B0 

45 

41 

53 

45 

20 

45 

4E 

54 

45 

52 

20 

59 

4F 

55 

52 

20 

54C0 

4E 

41 

4D 

45 

20 

28 

4E 

4F 

54 

20 

4C 

4F 

4E 

47 

45 

52 

54D0 

20 

54 

48 

41 

4E 

20 

32 

30 

29 

22 

50 

52 

45 

53 

53 

20 

54E0 

3C 

45 

4E 

54 

45 

52 

3E 

20 

57 

48 

45 

4E 

20 

52 

45 

41 

54F0 

44 

59 

22 

40 

55 

50 

50 

20 

50 

55 

46 

46 

4E 

49 

4B 

20 

5500 

20 

20 

20 

20 

20 

20 

20 

22 

90 

01 

BF 

8F 

SF 

SF 

SF 

8F 

5510 

BF 

SF 

C5 

BF 

89 

B4 

C4 

BF 

C5 

BF 

83 

83 

83 

83 

83 

OD 

5520 

90 

00 

BF 

B0 

B0 

B0 

B0 

CB 

BF 

20 

82 

OD 

90 

C2 

BF 

C5 

5530 

BF 

CB 

OB 

00 

BF 

83 

83 

83 

83 

C8 

BF 

C3 

SB 

B4 

20 

BF 


Das Programm ist für 25,— DM beim Autor 
erhältlich. 

Axel Schneider 
Bodenshofweg 1 
5000 Köln 40 


Allen Abonnenten der Fachzeitschrift GENIE DATA bieten wir als Service an, in unserer Rubrik ' 
'Kleinanzeigen' bis zu drei Zeilen Text für Sie kostenlos zu veröffentlichen. Dieser Service gilt 
nur für ABONNENTEN. 
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BIORHYTHMUS 


Durch Beobachtungen wurde festgestellt, daß 
es im Leben des Menschen verschiedene Zyklen 
gibt, die einen erheblichen Einfluß auf seine 
körperliche und geistige Leistungsfähigkeit so- 
wie auf seinen seelischen Zustand ausüben. 

Es gibt folgende 3 Zyklen: 

1. der körperliche Zyklus mit einer Dauer von 
23 Tagen. 

2. der seelische Zyklus mit einer Dauer von 28 
Tagen. 

3. der geistige Zyklus mit einer Dauer von 33 
Tagen. 

In neuester Zeit wird aus den 3 obigen Werten 
ein Mittelwert errechnet, der sogenannte ER- 
FOLGSWERT. Er zeigt auf einen Blick die 
Tendenzen zu allen Lebensgebieten an, die mit 
Körper, Seele und Geist Zusammenhängen. 
Solange sich die Werte im positiven Bereich 
befinden, ist die Leistungsfähigkeit bzw. der 
Zustand hoch, während sie in der Zeit mit ne- 
gativen Werten nachläßt. Kritisch sind lediglich 
die Tage, in denen die Werte vom positiven in 
den negativen Bereich, also Nulldurchgänge, 


wechseln. An diesen Tagen besteht verstärkte 
Unfallgefahr und die Möglichkeit einer Kurz- 
schlußhandlung ist gegeben. 

Das nachstehende Programm berechnet auf ei- 
nem Colour-Genie unter Berücksichtigung der 
Schalttage die Biorhythmuswerte für einen 
wählbaren Zeitraum. Außerdem kann wahlweise 
ein erklärender Text angewählt werden. 

Auf dem Drucker Itoh 8510 A werden die 
Texte und Werte ausgedruckt. Nach dem Star- 
ten mit RUN verlangt das Programm im Di- 
alogverfahren die benötigten Daten. Danach 
erfolgt die Abfrage auf korrekte Eingabe. In 
den folgenden 5 Minuten werden die Werte für 
1 ganzes 3ahr ausgedruckt. 

In der vergangenen Zeit habe ich ungefähr 50 
Ausdrucke erstellt. Sie erfreuen sich steigen- 
der Beliebtheit bei Freunden, Bekannten und 
Nachbarn. 


Dieter Gerblinger 


: REM FETTDRUCK AUS 


1 REM B I ORHYTHQGRAMM -AUSDRUCK 
3 REM Dieter Gerblinger 
Al penkorpsstr . 32 
8102 Mi ttenwal d 

5 COLQURi 6 : REM Monitorbetrieb 
10 D I MM (12) ,B< 12) 

12 DIMD*< 100) 

20 CLS 

30 LPRINTCHR*<27>CHR*<66> : REM ZEILENABSTAND 
70 0*=CHR*<9> :REM FETTDRUCK ETN 
80 N*=CHR*<27)+CHR*<33> :M*=CHR*< 27) +CHR*< 34) 

100 F0RA= 1 TOI 2 
105 READM(A) :NEXTA 

110 F0RA=1T012:READD*<A> ,B<A> sNEXT 
120 RESTORE 

250 REM DATENEINGABE 

251 CLS : PRINTS 15, H BI ORHYTHMUS“ 

252 PRINTS762, "GIB DEN NAMEN EIN!“ 

260 INPUTH* 

265 PRI NT§ 1 60 , CHR*< 30 ) 

270 PRINTS 200," NAME : " ; TAB ( 20 > H* 

288 PRINTS 760 “GIB DAS GEBURTSDATUM EIN!" 

290 PRINT“ FORM: 01 03 1948 N/L" 

300 INPUTA* : PR INTS 285, "GEB. -DATUM : " ;TAB( 20 > A* : PRINTCHR* < 31 ) 

328 PR INT §760 , "AB WANN SOLL GEDRUCKT WERDEN? FORM: 3 N 

/L 1983 N/L" 

345 I NPUTMM , J* 

349 PR INTS 365, "PROG. -DATUM: " :TAB<20)"1 . " : MM ; " . " ; J* : PRINTCHR*< 31 ) 

350 PR INTS 760 /'WIE MIELE MONATE SOLLEN GEDRUCKT WERDEN? 1 = 6 M 
ONATE 2=12 MONATE" 

355 INPUTG: IFG=1THENR=6ELSEIFQ=2THENR=1 2 

PRINTS445, “MONATE: " TAB< 20 > R : PRI NTCHR* < 31 ) 

PRINTS760 , "SOLL EINE ERKLAERUNG GEDRUCKT WERDEN? 

2 = NEIN"' 

I NPUTD : I FD= 1 THEND*= " JA " ELSE I FD=2THEND*= "NEIN " 

PR INTS 525, "ERKLAERUNG: " ;TAB< 20 > D* : PRINTCHR*< 31 ) 

PRINTS760’ "WENN ALLE ANGABEN RICHTIG SIND, 

L ANSONSTEN IRGENDEINE TASTE." 

380 INPUTG* : IFG*<>“ "THEN250 

410 T=UAL( LEFT*< A* ,2> ) : M=UAL < M I D* < A* ,4,2)) : J=UAL< RI GHT*< A* , 4) ) 

420 REM NAME + KOPF 


357 

368 

362 

364 

370 


1 = JA 


DRUECKE N/ 


SOFTWARE 


425 
43Ö 
480 
4 90 
510 
520 
530 
540 
590 
592 
705 
710 

715 
TAL 

716 
126 
?30 
760 
770 
790 
310 
820 
840 
850 
860 
870 
880 
998 
1008 
1040 
1050 
1 060 
1070 
1080 
1090 
1095 
1100 
1110 

e . "MS 


LRR 1 NTCHRS < 27 > CHRS < 76 ) " 0 1 0 " : REM L 1 NKER RAND 


GOSUB 1 180 
GOSUB 1050 

A=S : RESTÖRE : I FD=1THENGÜSUB1 490 
REM TABELLENKOPF 
GOSUB 1 110 
REM MONAT + JAHR 
T= 1 : AA=T : M=MM : BB=MM : J=UAL ( JS ) 

CC=UAL < R I GH TS < JS , 4 ) ) 

GOSUB 1050 

CLS : PRINT§21 0 , " Ich arbeite gerade! 
GOSUB 1 455 : B=S :V'=B-A 
LPR I NTCHRS ( 27 > CHRS ( 40 ) "006,015,024 


REM ERKLAERUNG 


I I U 


033,044. REM TAB H0RI20N 


KK=B ( BB > : I F J/4= I NT < J/4 ) ANDBB=2THENKK=29 
FORAA= 1 TOKK : LPRI NT OS : : LPR I NTUS I NG " ### " ; AA ; 
N= I NT < 1 0 0 *S I N ( 6 . 2831 84*V/23 ) +0.5) 

S1=N 

LPRI NT 0$- ; : LPR INTUS ING" ####" :N: 

N=INT < 1 00*SIN< 6 . 2831 84#U/28) + 0.5) 

S2=N 

LPR INTOS : : LPR INTUS ING" ####" :N: 

N=INT < 1 00*SIN( 6 . 2831 S4*U/33) + 0 .5) 

S3=N 

LPR I NT 0* ; : LPR INTUS ING" ####" ;N; 

S4=INT ( < Sl +S2+S3+0 . 5>/3) 

LPR INTOS- ; : LPR INTUS ING" ####" ;S4 
M=M+1 

NEXTAA : LPR INT : G0SUB1 420 : G0T07 1 6 

REM UNTERPROGRAMM 

2=0 

I F J/4 < > I NT ( J/4 ) THEN 10 98 

I.FM <=2THEN 18 90 

Z=1 

2=2 + ( J-l ) *365+ INTC ( J-l )/4) 

F0RK=1 TOI 2 : READM< K> :NEXTK 
S=2+MCM)+T: RETURN 

LPR INT : LPRINTTAB< 7) ;NS"Di e toi qenden 
LPR INT 


LPR INT " 


Angaben sind Prozentwert 


1 120 LPRINTTAB< 4) ; CHRS < 27) CHRS (86) " 0369" CHRS ( 6 ) 

1130 LPRINTCHRS< 27) CHRS< 81 ) : REM ENGSCHRIFT EIN 
1140 LPRI NTTAB ( 10) ; "DATUM" ;TAB( 25) ; "KÖRPER- SEELEN- 
GEISTES- ERFOLGS-" 

1158 LPRINTTAB< 25) s "WERTE WERTE WERTE 

WERTE" 

1155 LPRINTCHRS( 27) CHRS ( 78) : REM NORMALSCHRIFT 
1157 LPRINTTAB«: 4) ; CHRS ( 27 ) CHRS( 86) " 0 369" CHRS ( 6) 

1160 RETURN 

1180 REM LPRINT NAME+KOPF 

1 1 82 LPRINTTAB< 14)" **************** **********“ 

1190 LPRI NT CHRS (14) : LPRINTTAB( 8) ; "BIORHYTHMUS" : LPRI NTCHRS ( 1 5) 

1 1 92 LPRINTTAB( 14)" **************************" : LPR INT 
1200 L=LEN ( HS ) : 2 2= I NT ( L/2 ) 

1 205 LPRINTTAB< 25) ; "für" : LPRINT 

1210 LPRI NTTAB ( 20 -22 ) ; HS ; " *" ;AS: LPRINT : LPRINT 

1220 RETURN 

1400 REM MONAT + 1 

1420 BB=BB+ 1 : E=E+ 1 : I FBB=1 3THENBB=1 :CC=CC+1 
1450 I FE=RTHENGOTO3000 

1455 LPR I NTCHRS ( 27) CHRS( 81 ) ; ! REM ENGSCHRIFT 
1460 LPRINTTAB( 9) ; DS(BB) ; CC 

1465 LPRI NTCHRS ( 27) CHRS ( 78) : RETURN : REM NORMALSCHRIFT 
1 490 REM ERKLAERUNG 

1500 LPRI NTTAB ( 15): CHRS( 27) CHRS ( 33 ) CHRS ( 27) CHRS( 88) " Das sagen die 
Biowerte aus ! " CHRS( 27) CHRS( 89) CHRS( 27) CHRS( 34) : REM FETT+ UNT ERSTR . 
EIN+AUS 
1505 LPRINT 

1510 LPRINT " Be i den Werten " CHRS( 27) CHRS( 33) " 1" CHRS( 27) CHRS( 34) " 
bis " CHRS( 27) CHRS( 33) "100" CHRS< 27) CHRS( 34) " ist der j ewe i 1 i qe Z 
us t and " CHRS( 27) CHRS( 33) " erhöh t " CHRS( 27) CHRS( 34) " bis "s 

1520 LPRI NTCHRS (27) CHRS ( 33) "rr.ax i mal "CHRS (27) CHRS (34) " , je nach dem 
anqeze i qten Wer t ! " 

1530 LPRINT" D i e Werte "NS"-1"MS" bis "NS" -1 00 "MS" sind nicht a 
ls schlecht an zu sehen, sondern als Zeiten der 

1540 LPRINTNS" Kräf tesamml unq"MS" bzw . der "NS" Reqenerat i on"MS" . " 
1550 LPRINT : LPRINT" D i e Schnittpunkte "NS"(0 PROZENT) “MS" bzw. die 
Übergänge von "NS"PLUS"MS" nach "NS"MINUS"MS" oder von "; 

1560 LPRI NTNS " M I NUS " MS " nach "NS"PLUS“MS" sind als besonders "NSC 
HRS( 27 ) CHRS < 88 ) " KRI T I SCH" CHRSC 27 ) CHRS( 89 ) MS" zu werten . " 

1570 LPR INT "An diesen Taqer, besteht die Gefahr, auf körperlichem, 
seelischem oder geistigem Gebiet zu versagen." 
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1575 LPRINT 

1580 LPRINT" D i e "N* " KÖRPERKURVE "M$ " <23-Tage> bestimmt das körperl 
iche Wohlbefinden." 

1 588 LPRINTCHR*<27>CHR*C48> s : LPRINTCHR*< 27) CHR*( 40 ) " 0 1 6 . " 

1590 LPRINTTAB(S) , "z .B, " ; : LPRINT 0* " -Angr i f f s-f reud i gke i t" 

1600 LPR I NT 0$ " -Energ i e " ' 

1610 LPR I NT ü$- "-Ausdauer" 

1 620 LPRI NTQ$ " -Un t e r n e hmu n qs 1 u s t " : LPR I NTG* " -L) i der s t an d 11 
Aggress i v i tat " 

1530 LPRINT 

1649 LPRINT" D i e " Nt " SEELENKURVE " Mi 11 <28-Tage> bestimmt das körperl 

i c h -se e 1 i sc h e Wohlbefinden." 

1650 LPRINT: LPR INTTAB< 8 > , " z . B . " ; : LPRINT 0* " -Al 1 gerne ine Stimmungslag 


LPRI NT 0$ "- 


1 660 
chke 
1670 
sch 1 
1 680 


LPRINTO*"-Gefühl sl aqe" : LPRI NT Ö^" -Op t i m i smus" : LPRINTQ*" -Froh 1 i 
t" : LPRINTÜV -Kreat i 0 i tat" 

LPRINT: LPRINT" Die " N$ " GE I STESKURVE " M$ “ <33-Tage> bestimmt aus 
eßlich Situationen wie:“ 


LPRINTTAB< 8) , " z . B . " ; : LPRINT G$"-Ge i stesgeoenwar t “ : LPRINTG*" -Au 
f -f assungsf äh i gke i t " : LPRI NT 0$ " -Sch 1 agf er t i gke i t " : LPRINTOi" -Assot i at 
i onsvermoQen " 

1690 LPRINT : LPR INT"D i e "N$ " ERFOLGSKURUE"Mf" ist die Mittelwertskur 
ue der drei anderen. Sie zeigt Tendenzen zu allen Lebesg 
ebieten an, die mit Körper , Seele und Geist Zusammenhängen 


1695 
1 700 


LPRINT 


Horoskope. Sie 


LPRINTTAB<8> , " z . B . " j : LPRINTO*" -Pru f ungen " : LPRINT OS" -spor t 1 i ch 
e Hoc hl e i st ungen" : LPR INTGS" -Oper at i onen" : LPR INTOS 11 -wi ch t i ae Lebens 
en tsche i dunoen " 

1710 LPRINTÖS" -Ver handl ungen usw." 

1780 LPRINTCHRS<27)CHRS<48> : REM TAB LOESCHEN 
1800 LPRINT"**" ;NS" ABER: "MS" Biorhythmen sind keine 
garantieren keinen **Erfolg oder Mißerfolg." 

1810 LPRINT 
1820 LPRINT 
2000 RETURN 

3000 LPRINTCHR$-( 27) CHRS< 86) " 0425"CHRS< 91 ) 

3010 LPRINT" DIESES BI GRHYTHMO GRAMM WURDE AUF EINEM coi 

BERECHNET UND MIT EINEM i toh 8510 

T. 

3028 
3030 
3100 
5000 


GEDRUCK 


LPRINT" ****** Programmerarbeitung: Dieter Ge'rblinger *****" 
LPRINTCHRS<27>CHRSC86> " 0425" CHRS< 21 8) 

END 

DATA0 ,31 ,59,90,120,151,181 ,212,243,273,304.334 


f.« KJ KJ l_rn inw « 1 * sj s l / V < X Ä-V « X ^ X ■ X ^ X i j sJW-T 

6000 DAT A JANUAR , 3 1 , FEBRUAR ,28 .MINPR2 . 31 .APRIL, 30 .MAI .31 .JUNI ,30 , JU 
LI ,31 .AUGUST, 31 , SEPTEMBER , 30 , OKTOBER , 31 , NOVEMBER 30 , DEZEMBER ,31 ' 


CLUB-INFO 


Anfang Febuar dieses Jahres entstand, zu- 
nächst nur als Schnapsidee und aus einer loka- 
len Softwarekrise heraus, der GENIE/TRS 
80-USER-CLUB Bremerhaven. 

Mittlerweile wurde aus der Schnapsidee aber 
ein Club der sich sehen lassen kann; einmal 
monatlich erscheint unser CLUBINFO, unser 
Mitteilungsblatt mit Berichten von Mitgliedern 
und Fachzeitschriften. 

Der Club versteht sich als Bildungsgemein- 
schaft. D. h. wir sehen unseren Zweck nicht 
nur im leidlichen Tausch von immer galakti- 
scheren (und sich letztlich doch wiederholen- 
den) "Spacegames", sondern arbeiten gezielt 
auf die Erweiterung unserer Soft- und Hardwa- 
rekenntnisse hin. 

Der Programmtausch findet über die zentral 
angelegte Bibliothek statt. Der Autor eines 
Programms erhebt für den Fall der Entnahme 
seines Programmes eine Schutzgebühr zwischen 
3,— und 10,— DM je nach Länge des Pro- 
gramms. 


Weil je 50% dieser Gebühren auf das Konto des 
Autors und in die Clubkasse fließen, entfällt 
für die meisten Mitglieder schon nach kurzer 
Zeit der sonst monatliche Beitrag von 3,— DM. 

Da wir mittlerweile Mitglieder aus allen Bun- 
desländern haben, hoffen wir natürlich schon 
bald DER GENIE/TRS 80 - CLUB Deutsch- 
land zu werden, aber bis dahin ist es noch ein 
hartes Stück Weg, auf dem wir jeden "ambiti- 
onierten" und lern willigen "GENIE/TR S-Fan" 
gut gebrauchen können. 

Anfragen: 

K. Schmidt, "Bürger" 147, 285 Bremerhaven. 
Bitte mit -,80 DM Rückporto; CLUBINFO-Pro- 
beexemplar gegen 4,— DM in Briefmarken (11 
Seiten z. Z.). 


Mit freundlichen Grüßen 
Klaus Schmidt 


SOFTWARE 


GENIE 11 iB 



'ABENTEUERBURG' ist ein Adventuregame in 
Basic geschrieben, mit deutschem Text. Ziel ist 
es, einen verborgenen Schatz zu finden. Um 
dieses Ziel zu erreichen, muß der Computer mit 
Anweisungen, die aus einem oder zwei Wörtern 
bestehen, durch die Burg gesteuert werden. Da- 
bei sind oft Gegenstände zu nehmen, zu be- 
trachten usw. Der Spieler kann jederzeit um 
Hilfe bitten und erhält je nach Situation einen 
kleinen Tip, der nützlich oder verwirrend sein 


****** ABENTEUERBURG * ***** 


kann. Das Spielgeschehen spielt sich in 14 ver- 
schiedenen Räumen ab, die untereinander ver- 
bunden sind. Es ist wichtig, seiner Phantasie 
freien Lauf zu lassen und auch die seltsamsten 
Eingaben sind berücksichtigt und werden beant- 
wortet. (Versuchen Sie z. B. einmal die Burg zu 
nehmen). Der Wortschatz des Spieles ist groß 
genug. Können Sie sich nicht verständlich ma- 
chen, versuchen Sie es mit anderen, sinnglei- 
chen Worten. 

Rainer Schmies 


Z ****** COPYRIGHT BY RAINER SCHMIES ****** 

A * 

5 ' ****** NI EHLER STR. 325 5 KQELN 60 ****** 

6 ? • 

7 ’ 

100 CLEAR500! CLS: PR INT §20, "*** ABENTEUERBURG ***": PRINT: PRINT: PRINT" 
ICH BIN IHRE SRI ELFI EUR, DIE SIE DURCH EINE REIHE VON AUFGABEN UND 
HINDERNISSEN STEUERN KOENNEN. DIES GESCHIEHT DURCH EINGABE VON SÄET 
ZEN DIE AUS EINEM ODER ZWEI WOERTERN BESTEHEN." 

110 PRINT"MEIN WORTSCHATZ IST GROSS GENUG. PROBIEREN SIE EINFACH AUS 
WAS IHNEN GERADE IN DEM SIMM KOMMT. SIE KOENNEN JEDERZEIT UM HILFE 

Bitten wenn sie nicht mehr weiterkommen. print "Beispiele ftjer ein 

GABEN; " 

120 PRINT" ’ HILFE“ ' GEHE NORD’ ’ ESSE BROT’ ’ LESE ZETTEL’ ’ NEHME 
RING’ U.S.W. " 

125 DEFINTX: DEFSTRAs DIMDf (6) .OP* (14) , H* < 14) . OB* ( 14, 3) , WS (14, 4) ,W(14, 
4) • CP=1 : ««STRINGS (63, 179) 

126 F0RX= : l T03f : READA5: NEXT 

127 ZE- : 2s BU— 0: SL=5: L0==6: WU«7s FL=4: BR=S: BI =9: LE>10: BN=1 1 : TR=12: XA=13: 
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DR“ 1 4 : SA=7 : Fü=8 : FE=9 : SU“ 1 0 s SP“ 1 i : SK“ 1 3 : KE-5 

130 PRINT "SIE KOENNEN AUCH EINE LISTE DER DINGE ANF ORDERN, DIE SIE B 
EI SICH TRAGEN. IHRE AUFGABE IST ES EINEN SCHATZ ZU FINDEN." 

132 F0RX=1TÜ6; READD* (X ) : NEXT: FDRX= 1 TOI 4: READCP* < X ) : NEXT : F0RX = 1T0.14: R 
EADH* < X ) : NEXT : FORX= 1 TC) 1 4 : F0RY=1 T03 :: READOB* ( X Y) : NEXTY, X s FORX“ 1 TG 1 4 : F 
0RY=1TÜ4:READW* <X, Y) : NEXTY, X 

135 FORX = 1 TOI 4: F0RY=1TG4: READW ( X , Y) 5 NEXTY, X : INPIJT" ZUM FORTFAHREN BIT- 
TE ’ ENTER DRUECKEN . " ; P : RESTORE 
500 CLS 

999 IFO=CPTHENPR INT "DAHIN KANN ICH NICHT GEHEN ! " : GOTO 1000ELSECLS 

1 000 PR I NT§ 0 „ CHR* ( 255 ) ; : PR I NT §64 ,, CP* ( CP ) 3 CHR* < 30 ) : PR I NT " I CH SEHE s " s 

: F0RX=1T03: PR INTOB* (CP, X) ; " " 3 : NEXT: PRINTCHR* (30) s PRINT "MOEBLICHE WE 
GE: : F0RX=1 T04 : PR I NTW* (CP, X) 5 ” " 3 : NEXT: PRINTCHR* (30) : PRINTA 

1020 V=0:G0SUB6Ö000: FORX 1 = 1 T034: RE AD Al : IFA0=A1THENV=X 1 
1025 NEXT 

1040 RESTORE: 0NV+1G0T065500, 1100, 1200, 1200, 1200, 1200, 1300, 1400, 1400, 

1 500 , 1 600 , 1 700 , 1 200 , 1 900 , 1 900 , 2000 , 2000 , 2000 , 2 1 00 ,2100, 2200 . 2300 , 200 
0, 2400,2400, 2400, 2400, 2500, 2700, 1300,2600, 1400,2500, 2800,2800 
1100 PRINTH* (CP) : GOTO 1 000 

1200 I F A0= " SPR " PR I NT " ALSO SPRINGEN IST MIR VIEL ZLJ GEFAEHRLICH. " : GOT 
01000 

1210 IFAO“" REN "PR INT "KANN ICH NICHT LIEBER GEHEN, DAS IST WENIGER AN 
STRENGEND. " : GOTO 1000 

1211 I F A9= " NOR " ANDCP“3 ANDST “OTHENPR I NT " D I E TUERE VERSPERRT MIR DEN W 
EG IN DIESE RICHTUNG. " : GOTO 1000 

1212 I FA 9= " BUR " ANDCP= 1 THENCP=2 : GÜT0999 

1215 IFA0="KLE"ANDCP=11ANDLE=100THENCP=13: G0T0999ELSEIFA0="KLE" PRINT 
"DAS KANN ICH HIER NICHT. " : GOTO 1000 

1216 I F A9= " NOR " ANDCP=6ANDWU< > 1 OOPR I NT" DER LOEWE LAESST MICH NICHT VO 
RBEI. GOTO 1000 

1217 I FA9= " OST " ANDCP=14AND5A< >1 OOPR INT "DER DRACHE VERSPERRT MIR DEN 
WEG. " : GOTO 1000 

1218 I FA9“ " BRU " ANDLE“ 1 00 ANDCP= 1 1 THEMCP“ 1 3 : GOTO 1 000 

1219 I F A9= " BRU " PR INT "DAZU BIN ICH NOCH NICHT IN DER LAGE . " s GOTO 1 000 

1220 0=CP: I FA9="N0R"THENCP=0P+W (CP, 1) :G0T0999ELSEIFA9="SUE ,, THEMCP=CP 
+W (CP, 2) : G0T0999ELSEIFA9=" OST"THENCP=CP+W (CP, 3) : G0T0999ELSE I F A9“ " WES 
"THENCP=CP+W (CP, 4) : G0T0999ELSEPR INT "DAHIN KANN ICH NICHT GEHEN. " : GOT 
01 000 

1300 I FCP= 1 2ANDA9“ " RAP " THENPR I NT "DIE TRUHE HAT SICH GEOEFFMET. IN IH 
R LIEGT DER SCHATZ, DAS SPIELIST BEENDET. " : ENDELSEPRINT "OK. DAS HABE 
ICH GETAN, ABER NICHTS GESCHIEHT. ": GOTO 1000 
1400 IFA9=="BUR" PRINT "DIE IST MIR ERHEBLICH ZU SCHWER. " s GOTO 1000 
1402 I FA9= " BUE " PR I NT " DER IST ZU UNHANDLICH, DEN KANN ICH NICHT TRAGE 
N. GOTO 1000 

1404 I FA9** " TUE " PR I NT "DIE IST FEST VERANKERT. GOTO 1000 

1406 I FA9* " FLA " ANDCP=4ANDFL=4THENF'R I NT " OK . ICH HABE DIE FLASCHE GENG 
MMEN. SIEHT SELTSAM AUS. " : FL=50: ÜB* (4, 1 > =" " : G0T01000ELSEIFA9="FLA"PR 
I NT" I CH SEHE KEINEN FLASCHE. " : GOTOlOOO 

1407 I F A9= " B I L " ANDCP=9 ANDB I “9THENPR I NT "HI NTER DEM BILD BEFINDET SICH 
EIN TRESOR. " : BI =50 s OB* (9, 1 )="": GOTO 1000ELSEIFA9“" BI L." , PRINT" ICH KAN 

N KEIN BILD FINDEN. ": GOTOlOOO 

1 406 I F A9= " SCH " ANDCF’=5 ANDSL=5THENPR I NT " OK . ICH HABE DEN SCHLUESSEL G 
ENOMMEN. " : SL*50: OB* (5, 1 ) = " “ : GOTO 1 OOOELSE I FAB=" SCHL "THENF'R INT" ICH SEH 
E KE I NEN SCHLUESSEL . " : GOTO 1 000 

1409 IFA8»"SCHU"ANDCP=10ANDSU=1 OTHENPR INT "ICH HABE DIE SCHUBKARRE GE 
NOMMEN. " s SU=50: OB* ( 10, 1 ) = " " : GOTO 1 OOOELSE I F A9= " SCH " ANDCP« 1 OTHENPR INT" 
HIER IST KEINE SCHUBKARRE. GOTOlOOO 

1410 I FA9“ " ZET " ANDCF'=2ANDZE=»2THENPR I NT" I CH HABE DEN ZETTEL GENOMMEN. 
ZE=50:0B*<2, 1 GOTO 1 OOOELSE IFA9=" ZET" PR INT" ICH SEHE KEINEM ZETT 

EL. GOTOlOOO 
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1412 IFA9= ,, KET"ANDCP»5ANDKE»5THENPRINT ,, ICH HABE DIE KETTE GENOMMEN." 
s KE“ 50 s QB* (5„ 2) = " " :: GQT01 OOOELSE IFA9- " KET" PR I NT " H I ER I ST KE I NE KETTE . 
" 1 GOTO 1000 

1414 I F A?= " LGE " ANDCF -6THENPR I NT " DER LOEWE HAT DICH GETOETET. DAS SF'I 
EL IST ZU ENDE. " ENDEL. SEIFA9=="L.0E" PRINT" ICH KANN KEIMEN LQEWEM ENTDE 
OKEN. GOTO 1000 

1416 I FA9= " WUR " ANDCP»7ANDWU=7THENPR I NT " SCHON GESCHEHEN . " i WU=50 : OBS < 7 

. 1> = GOTO 1 OOOEL5EI FA9= " WUR " PR I NT "KE I NE WURST ZU SEHEN. "sGOTQlOOO 

1418 I FA9- " SAL 11 ANDCP»7ANDSA»7THENPR I NT " HABE ICH GETAN. " : SA--50: OBS ( 7 . 
2 3 = " " :: GOT 0 1 OOOELSE I F A9= " SAL " PR I NT " H I ER IST KEIN SALAT ZU SEHEN . " GOT 
Dl 000 • , 

1420 I F A9» ” BR I " ANDCP-3 ANDER— STHENPR I NT " DER BRIEF IST ALT UND GEOEFFN 

ET. " « BR=3G: OBS (8, 1 ) GOTO 1 OOOELSE IFA9-" BR I "PR INT 1 "HI ER GIBT ES KEIN 

EN BR I EF . " : GOTO 1 000 

1 422 I FA 9 = " FEN " PR I NT "EIN FENSTER KANN MAN N I CHT M I T NEHMEN . 11 s GOTO 1 000 
1424 I F A9» " LE I " ANÖCP» 1 OANDLE® 1 OTHENPR I NT » I CH HABE DIE LEITER GENOMME 
N« "s LE=50 : OB S (1 0. 2) »"": GOTO 1 OOOELSE IFA9= "LEI "PRINT "KE INE LEITER ZU S 
EHEN. GC TO 1000 

1426 IFA9»"BPA" ANDCP» 1 1 ANDSP» 1 1THENPR INT "SCHON PASSIERT. " : SP=50e OBS ( 
1 1,1) " : G0T01 000ELSEIFA9»" SPA "PRINT "WO IST DENN HIER EIN SPATEN ?" t 
GOTO 1 000 

1429 I FA9= " BRLJ " PR I MT " GLAUBST DU ICH WAEI4RE EIN HERKULES ?": GOTO 1000 

1430 I F A9» " TRU " ANDCP— 1 2T HENPR I NT "DIE IST FEST IM BODEN VERANKERT. " s G 
DTO 1 OOOELSE I FA 9= " TRIJ ” PR I MT " WELCHE TRUHE DENN ? " : GOTO 1 000 

1432 I FA9= " SCH " ANDCP» 1 3 ANDSK® 1 3THENPR I NT " DAS ERSCHEINT MIR SINNLOS,, 
ICH LASSE IHN STEHEN. " : GOTO 100oEL.SEIFA8="SCHR" PRINT "HI ER IST KEIN SC 
HRANK" : GOTO 1000 

1 434 I F A9= "AXT " ANDCP» 1 3 AND X A» 1 3THENPR I MT " OK . ERLED I BT . " : X A=50 s OB* ( 1 3 
,, 2) = : " " i G0T01 OOOELSE IFA9®" AXT "PR INT" HI ER GIBT ES KEINE AXT,, " : GOTO 1000 

1436 I F A9= " DRA " PR I NT " DER DRACHEN HAT DICH VERLETZT. " ; FORX - 1 TOI 000 s NE 
XT :: GO TO 3000 

1437 IFA9="BUC"ANDCP=2ANDBU=2THENPRINT 11 ICH HABE DAS BUCH GENOMMEN.": 
BU*50 OB* < 2 ,, 3 ) * " " s GOTO 1 000 

1438 PRINT "DAS KANN' ICH LEIDER NICHT AUSFUEHREN. GOTO 1000 

1500 IFA9~"WUR"THENPRI.NT"MHHH. . . DIE SCHMECKT ECHT GUT. " s WU=Os GOTO 10 
OOELSE I FA9= "SAL "THENPRINT" NA JA. VIELLEICHT EIN WENIG TROCKEN. " s SA=0 
s GOTO 1000ELSEPR INT "ALSO ICH FINDE DAS IST ECHT EIN WENIG ZU ZAEH„":G 
DTO 1000 

1600 IFA9=" WUR "THENPRINT "NICHT SCHLECHT, DIE WURST. " : WU=Ö: G0T010Ö0EL 
SEI FA9= "SAL" THENPRI NT" LECKER , ICH ESSE GERNE SALAT " s SA=Os GOTO 1 OOOELS 
SPRINT "SOLCHE SCHWEINEREIEN KANNST DU NICHT VOM MIR VERLANGEN. " s GOTO 

1 ooo 

1700 I FFL=50 AND A9= " FLA " THENPR I NT " D I E FLASCHE IST LEER GOTO J. OOOELSE 
PRINT" HI ER GIBT ES NICHTS WAS ICH TRINKEN KOENNTE. " : GOTO 1000 
1000 1 FA9= " AUF " AIMDCP=3ANDSL«50F'R I NT "DIE TUERE IST OFFEN. ICH KANN AU 
CH MACH MORDEN GEHEN. " : ST» 1 : GOTO! 000 ' 

1802 I FA9“ " AUF " ANDCP»3ANDSL< >50PR I NT " I CH HABE KEINEN SCHLUESSEL. " s GO 
TO 1000 

1 804 I FCP»6ANDA9» " LOE " THEN2000 

1806 I FCF'=9 AND A9=" FEIM "PRINT "DAS FENSTER IST GESCHLOSSEN. ": OB* < CP, 2) » 
"EIN GESCHLOSSENES FENSTER. "sGDTOlOOÜ 

1808 PRINT" ICH KANN DIR NICHT HELFEN. ABER ICH VERSTEHE DICH NICHT." 
s GOTO 1000 

1900 I FCP— 3ANDA9= " TUE " ANDST »OPR I NT "DIE TUERE IST VERSCHLÜSSEN. "s GOTO 
1000 

1902 IFCP=3ANDA9= "TUE" ANDST» 1 PRINT" DIE TUERE IST GEOEFFNET. ICH KANN 
JETZT AUCH NACH MORDEN GEHEN. "« 60T01 000 
1904 I FCF'= 1 2ANDA9= " TRU " PR I NT "DIE TRUHE L.AESST SICH NICHT OEFFNEN. " : 6 
□TO 1000 

1906 I FCP= 1 3ANDA9» " SCH " F'R I NT " DER SCHRANK IST LEER. GOT 01 000 
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'1908 X FGP-9 AND A9» " TRE " PR I NT " DER TRESOR ENTHAELT NICHTS. " t GOTO 1000 

1910 IFCP=2ANDA9="BUE"PRINT"EIN BUCH IST HERAUSGEF ALLEN . " : BU-2 : OBS ( 2 
. 3) -"EIN BUCH "sGOTOlOOO 

1911 I FA9= " FEN " ANDCP-9ANDQB* < CP , 2 > * " E I IM GESCHLOSSENES FENSTER " TI-IENO 
B* ( CP » 2 ) = " E 1 N OFFENES FENSTER " : PR I NT " OK . ERL ED I GT . " r. GOTO 1 000 

1 9 1 2 PR I NT " DIJ VERLANGST UNMOEGL I CHES VON M I R . " : GOTO 1 000 
2000 IFAO— "TGE"PRINT" ICH KANN NICHT TOETEN. "s GOTO 1000 

2010 I F A0= " BE I " PR I NT " OK . ICH HABE GEBISSEN. NICHTS PASSIERT. GOTO 10 
00 

2020 PRINT" ICH HABE KRAEFTIG ZUGETRETEN, ABER NICHTS GESCHIEHT. GOT 
0 1 000 

2100 IFCP-6ANDA9="L0E"THENPRINT ,, DER LOEWE HAT DICH AUFGEFRESSEN. DAS 
SPIEL IST BEENDET. 11 :: ENDEL.SEIFA9="DRA" ANDCP-14THENPRINT"DER DRACHE H 
AT DICH AUFGEFRESSEN. DAS SPIEL IST BEENDET. " s ENDELSEPRINT "HABE ICH 
GETAN . N I CH TS PASS I ERT . " s GOTO 1 000 

2200 PRINT "DAS IST MIR NICHT OHNE GEFAHR NICHT MOEGLICH. " s GOTO 1000 
2300 PRINT" ICH HABE.-. " s : IFZE-50PRINT"EINEN ZETTEL " : 

2302 I FBU=50PR I NT "EIN BUCH 

2304 IFSL-50PR INT" EINEN SCHLUESSEL " ; 

2306 I FWU— 50PR I NT "EI NE WURST " : 

2308 IFFL-50PR I NT" EI NE FLASCHE "; 

2310 IFBR-50PR INT "EINEN BRIEF " ; 

2312 I FB I — 50PR I NT "EIN BILD "s 
2314 IFLE-50PRINT"EINE LEITER " ; 

2316 I F X A-50PR I NT " E I NE AXT "s 
2318 IFSA-50PR INT" EINEN SALAT " : 

2320 I FSU=50PR I NT " E I NE SCHUBKARRE 
2322 IFSP=50PRINT"EINEN SPATEN 
2324 IFKE— 50PR I NT " E I NE KETTE " ; 

2326 PR I MT : GOTO 1 000 

2400 IFA9=" ZET" ANDZE“50THEN2E~2s OB* (2. 1 ) =" EINEN ZETTEL " : G0T02450ELS 
EI FA9=" ZET"2460 

2401 IFA9="LIS"THEN2300 

2402 IFA9="FLA"ANDFL=50THENFL--=4:0B*<4, 1)-"EINE FLASCHE " : G0T02450ELS 
EIFA9— "FLA "THEM2460 

2403 IFA8= ,, SCHL"ANDSL=50THENSL=5:0B$<5. 1) -"EINEN SCHLUESSEL " : G0T024 
50EL.SE IFA8=" SCHL" , 2460 

2404 IFA9-"KET" ANDKE-S0THENKE»5s OB* <5, 2) —"EINE KETTE " : G0T02450ELSEI 
FA9~"KET" , 2460 

2405 I F A9= " WUR " ANDWIJ-50 ANDCP-6THENWU- 1 00 : PR I NT " DER LOEWE IST EINGESC 
HLAFEN. GOTO 1000 

2406 I F A9= " WUR " ANDWÜ— 50THENWU— 7 : OB* ( 7 , 1>-'!EINE WURST " : G0T02450ELSEI 
FA9=" WUR", 2460 

2407 I FA9= " SAL " ANDSA— 50ANDCP— 1 4THENSA— 1 00 : PR INT "DER DRACHE FRISST DE 
N SALAT UND LAESST DICH VORBEI GOTOIOOO 

2408 IFA9="SAL"ANDSA=50THENSA=7: OB* (7, 2) —"SALAT " : G0T024S0ELSEIFA9-" 
SAL" ,2460 

2409 IFA9="BRI " ANDER— 50THENBR— 8: OB* (8,11 —"EINEN BRIEF " : G0T02430ELSE 
I F A9= " BR I " , 2460 

2410 IFA9-"BIL"ANDBI=50THENBI-9:0B»<9. 1)-"EIN BILD " : G0T02450ELSEIFA 
9— "EIL." , 2460 

2411 IFA8- ,, SCHU"ANDSU=50THENSU=10:0B*<10, 1)="EIME SCHUBKARRE " : G0T02 
450ELSE I F A8— " SCHU " , 2460 

2412 IFA9="LEI " ANDLE— 50ANDCP-1 1THENLE— 100: PR INT "DIE LEITER STEHT IM 
BRUNNEN. GOTOIOOO 

2413 IFA9*"LEI "ANDLE-50THENLE-1Ü: OB* ( 10, 2> -"EINE LEITER “ .- G0T02450EL 
SEIFA9-" LEI", 2460 

2414 IFA9*"SPA"ANDSP=50THENSP=11:ÖB*(11, 1) -"EINEN SPATEN " : G0T02450E 
LSEIFA9— "SPA" . 2460 

2415 IFA9="AXT"ANDXA=50THENXA=13: OB* (13,2) -"EINE AXT " : G0T02450ELSEI 
FA9— “ AXT" , 
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24 1 6 I FA9- " BUG " ANDBU“50THENBU“2 s OB* < 2 , 3 ) ~ " E I M BUCH " : G0T02450ELSEI FA 
9« "BIJC ",2460 

2417 G0T0246Ö 

2450 PR INT "OK. HABE ICH ERLEDIGT . : GOTO 1 000 

2460 PR TNT "HABE ICH NICHT BEI. MIR. FORDERN SIE LISTE AN,. " :i GOTO 1000 
2300 IFA9=“"THENPR INT "WOHIN SOLL ICH DENN SEHEN 7" : GOTO 1000ELSEPR INT 
"ES IST NICHTS BESONDERES ZU ERKENNEN. " s GOTO 1 000 

2600 I FFL-50ANDA9- " FLA " THENPR I NT" AUS DER FLASCHE KOMMT EIN GEIST. " : I 
FSL.~50THENPR I NT " ER HAT DIR DEN SCHLUESSEL GENOMMEN. "a SL“3s OB# <5. 1)“" 
EIN SCHLUESSEL GOTO lOOOELSE 1000 

2610 I F A9= " FL A " THENPR I NT 11 1 CH HABE KEINE FLASCHE BEI MIR. " s G0T01000EL. 
SEPR INT "HABE ICH GETAN. NICHTS GESCHIEHT. " 3 GOTO 1000 
2700 IFCP*ilANDA9s"LEI"ANDUE*S0PRINT"DIE LEITER STEHT IM BRUNNEN. "LE 
=1 00; GOTO 1000 

2702 I FCP— 1 1 ANDA9» " LE I " AMDL.E< >SOPR I NT " I CH HABE KE I ME LE I TER . " : GOTO 1 0 
00 

2704 PRINT "ICH KANN DICH NICHT VERSTEHEN. " : GOTO 1000 

2800 I FA9=" ZET" ANDZE-50PR INT "AUF DEM ZETTEL STEHT: ’ MAGISCHES WORT: 
PAPUR- 11 : GOTO 1000 ' 

2310 IFA9==" ZET" ANDZE< >SOPRINT" ICH HABE KEINEN ZETTEL. " s GOTO 1 000 
2815 I FA9~ " BR I " ANDBR< >50PR INT" ICH HABE KEINEN BRIEF BEI MIR. " s GOTO! 0 
00 

2320 I F A9= " BUC " ANDBU~50PF; I NT " ICH LESE: BEACHTEN SIE BITTE JEDE KLEIN 
IGKEIT , UND SEIEN SIE NICHT VERFRESSEN. " : GOTO 1 000 

2323 IFA9="BRI"ANDBß=50PRI NT "WILLST DU DEM DRACHEN UEB.ERW INDEM SO MIJ 
SST DU IHM .... "i GOTO 1000 

2330 IFA9-'"BUC" ANDBU< >5ÖPRINT" ICH HABE KEIM BUCH ZUM LESEN. " : GQTC1Ö0 

0 , . 

2840 PR INT "SO ETWAS KANN MAN NICHT' LESEN. ICH JEDENFALLS NICHT.": GOT 
0 1 000 

3000 GQSUB60000 : I F A0= " WER" ANDA9= " GES " THENPR I NT " I CH BIM WIEDER GESUND 
. " : FORX® 1 TO 1 000 : ME X T : CP“ 1 : GOTO 1 000 

3005 I F AÖ= " H I L " PR INT" AM BESTEM WAEHRE ES, ICH WUERDE WIEDER GESUND." 
:i GDT0300C 


3010 PRINT" ICH KANN NICHTS TUN BEFOR ICH WIEDER GESUND BIN. " : G0T0300 

0 

59999 GOTO 1000 

60000 PR INT §960. " " ; : INPUT" WAS SOLL ICH TUN" ; Al : FORX = 1 TÖLEN < Al ) s IFMID 
$ ( A 1 ,, X „ 1)0" "THEMNEXT: A0=A1 : AO-LEFT* (A0,3) : A9-" RETURN 

60010 A0--LEFT * ( A 1 , X - 1 ) : A9=RIGHT* (Al , LEN < Ai > ~X ) : A0=»L.EFT * ,( AO , 3 ) : A8“LEF 
TU; ( A9 „ 4 ) : A9=LEFT* ( A9 , 3 ) s RETURN ' 

64000 DAT A " H I L " , "GEH" , "LAU" , "REM" üsjpfl" , "SAG" "NEH" , "HOL" , "KAU" ., "ESS 
", "TRI", "KLE" , "SCH" , "OEF", '"TOE", "BEI " J "TRE", "STR" , "KIT" , "IJMG" ,, "LIS" , 
" HAU " , " WER " , " LEG " , " GEB " , "GIB " , " SEH" t " STB " RUF V , " fi[EI " , "NIM" , " SIE" , " L 


ES 


' L I E 1 


65000 DATA "NORD" , "SUED" , "OST", "WEST", "OBEN" "UNTEN" 

65010 DATA" ICH BEFINDE MICH AUF, EINER WIESE. ICH BEFINDE MICH IN D 
ER BIBLIOTHEK", "ICH STEHE IN EINEM DUNKLEN RAUM " , BIN IN EINEM S 

CHMUTZISEN WEINKELLER" ICH STEHE IN EINEM KLEINEN ^ELLERRAUM“ .. " ICH 
STEHE IN EINEM TURM", "ICH STEHE IN DER SBEXS&KWHiFir* " r 3 ' ■ !' 

65020 DATA" ICH HALTE MICH IN EINEM VERLIES AUF"*, "ICH BIN IN DER GAL.E 
RIE'V'ICH BEFINDE MICH IM GARTEN" I CH STEHE AUF EINEM HOF*' ,." ICH BIN 
IN EINER GRUFT" , "ICH STEHE IN EINEM GE WOELBE" , 11 ICH BIN AUF EINEM EN 
GEN FLUR" ' 

65030 DATA "GEH’ IN DIE BURG. ", "LESEN BILDET", "ES HANDELT .SICH UM EIN 
BKS— SCHLOSS " . "SCHON DIE GESCHICHTE VOM FLASCHENGEIST GEHOERT?" , "NIC 
HTS ZU SAGEN", "WIE KRIEGE ICH DEN WOHL RUHIG ?", "ESSEN MACHT SCHLAEF 
R IG", "-LESEN BILDET", "NICHTS ZU SAGEN" ' 

65040 DATA "HIER LIEGT EINE MENGE ZEUG. ", "VIELLEICHT MIT EINER LEITER 
?" ,i "NICHTS ZU SAGEN", "MAN KANN ALLES GEBRAUCHEN" , "OB DER WOHL VEGET 
ARIER IST ?" 
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£5050 DATA " E I NE BURG " , ” " , " " , " E I NEN ZETTEL " , " EI NEN BUECHERSCHRANK " " " 

„ "EINE VERSCHLOSSENE TUER" „ " " , " " , “EINE FLASCHE“ „ " “ , “ “ , "EINEN SCHLUSS 
SEL“. “EINE KETTE“., "EIMEN LOEWEN". "EINE WURST", "SALAT“, "E 

I NEN BRIEF "."EI NE FOLTERBANK " , " " „ " E I N B I LD " 

65060 DATA "EIN OFFENES FENSTER" , “ “ , "EINE SCHUBKARRE“ , "EINE LEITER“," 
" , " E I NEN SPATEN " , " EI NEN BRUNNEN" , " " , " E I NE TRUHE " , " " , " " ,, " E I NEN SCHRAN 
X . " . "EINE AXT“, "EINEM DRACHEN", "" 

65070 DATA "NORD" , " " , " " , " " , "NORD" , "SL1ED" , " " , "WEST" , "NORD" , " " , "OST" . " " 
, "NORD" . "SUED" , "OST" , " " , "MORD" „ " " , "" , "WEST" , "MORD" , "SUED" , "OST" , "WES 
T" , "MORD" , "SUED", " " , " " , "" , "SUED" , , "WEST", "NORD" , "SUED", "OST" , " ", " " 
, "SUED", "OST", "" 

65080 DATA" ", "SUED" , , "WEST" , " " , "" , "WEST", " " , "SUED", "OST", “ " , "" , 
" " „ "OST" , "WEST" 

65090 DATA1 , 0,0,0, 2, -1 ,0,1, 4, 0,-1, 0,2, -2, 1 , 0,3, 0,0, -1 , 5, -2, 2, 3, 2, -4, 
0,0,0, -3, 0, -2, 1 ,, -2, -3, 0, 0,-1, 1, 0, 2, -5, 0,-1 , O, 0, 0,2, 0, -2, 1 , 0, b, 0, -2, - 


65500 PRINT "ICH VERSTEHE NICHT WAS DU VOM MIR WILLST. GOTO 1000 


H/RES- 

GRAFIK 


Was heißt hier nun hochauflösende Graphik. Ein 
kluger Mann hat einmal gesagt, daß hochauflö- 
sende Graphik in etwa bei 500 x 500 beginnt. 
Gute CAD Systeme bringen eine Auflösung von 
etwa 4000 x 4000 Punkten pro Bildschirm. Die 
von den Händlern angebotene "hochauflösende 
Graphik" endet beim COLOUR GENIE bei 160 x 
96 Punkten. 

Nun kann man das C. G. durch einen Trick dazu 
bringen mit einer Auflösung von 320 x 192 zu 
"zeichnen". 

Natürlich kann man diese Graphik auch mit 
Text beliebig mischen und in allen 16 Farben 
dar stellen. Durch diesen Trick werden die 128 
frei programmierbaren Zeichen verwendet, das 
heißt man hat auch noch die vollen 14kB Ram 
frei. 

Dieses Programm ist allerdings nur eine Idee 
mit einem kleinen Beispiel verdeutlicht. Man 
kann dieses Programm natürlich ohne weiteres 
mit anderen Programmen (z. B. Drei-Dimensi- 
onal) "kreuzen". Dies nur als Anregung gesagt. 

Erklärung zum Programm: 

- Zeile 50: Tastatur wird abgeschaltet, mini- 


male Geschwindigkeitssteigerung. Kann wegge- 
lassen werden! 

- Zeile 60: Sämtliche frei programmierbaren 
Zeichen werden gelöscht. 

- Zeile 80: Zeichen für Koordinatenkreuz wer- 
den definiert! 

- Zeile 100-110: Koordinatenkreuz wird gezeich- 
net. 

- Zeile 120: Koordinatenkreuz wird beschriftet. 
Gezeichnete Funktion wird als Formel geschrie- 
ben. 

- Zeile 130: Unabhängige Variable (x) wird defi- 
niert. 

- Zeile 140: Darzustellende Funktion wird durch 
die Formel f(x)=y=INT(SQR(X x 100)) definiert. 
Wenn man eine Formel ohne INT(c) definiert 
wird man schnell merken warum es sein muß. 

- Zeile 150-260: Der Trick. Einfach abschreiben 
und fest dranglauben. 

- Zeile 280: Tastatur wird wieder eingeschaltete 
Während das Programm lauft nicht auf beide 
(RST) Tasten drücken! Das Programm geht da- 
durch verloren. 

Viel Spaß! 

Bernd Drechsel 
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* Hochauf 1 oesende Graphik (320x192) 

r 

' Bernd Drechsel (20.05.1983) 

> 

P0KE16406, 82 

F0RX=&HF 400TD&HF7FF : FGKEX, O: NEXT 
CLS : CHAR1 : DIMA ( 15) : J=-3049: K=130 
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BO F0RX=0T015: RE ADA < X ) : POKE&HF400+X , A (X > : NEXT 
90 DATA255, 0,0, 0,0, 0,0,0, 1,1,1, 1,1, 1,1,1 
100 PRINTSBIO, STRING$ (30, 128) 

110 FDRA=0TD19:PRINT§9+40*A,CHR$< 129) :NEXT 

120 PR INT §873, "x-ftchse"; :PRINT§0, "y-Achse’*:; :PRINT§920, "f <x)=SQR(X>"; 

130 FDRX=0T0230 

140 Y=INT(SQR(X*100) ) 

1 50 A=INT ( X/8) + 1 : B=INT ( Y/8) +1 : S=809+A~B*40 

160 IFSOHTHEN J=J+8:K=K+1 

170 Al=(X/8-A+l) *8:Bl=(Y/8-B+l) *8 

180 I F Al =0THENP0KE J— B 1,128 

190 IF A 1 = 1 THENPOKE J-B 1,64 

200 IFA1=2THENPQKEJ-B1, 32 

210 IFA1=3THENP0KEJ-B1, 16 

220 IFA1=4THENP0KEJ-B1 , 8 

230 IFA1=5THENP0KEJ-B1, 4 

240 IFA 1=6THENP0KEJ-B1 , 2 

250 IFA1=7THENPDKEJ-B1 , 1 

260 H=5 : PRINT §H, CHR$ (K) 

270 NEXTX 

280 P0KE1 6406, 227 

290 END 


LIEBE LESERIN, LIEBER LESER! 

Sie haben sicherlich schon oft bemerkt, daß die GENIE DATA versucht. Ihnen mehr als andere 
Computer-Fachzeltschriften zu bieten. Wenn Sfe sich nun einmal die hintere Umschlagseite die- 
ser GENIE DATA ansehen, werden Sie feststellen, daß wir Ihnen ab der Nummer vier 1983 ei - 
ne n weiteren neuen Service bieten: 

DEN GENIE DATA SOFTWARE-SERVICE. 

Wir wo/ien Ihnen jeweils alle Programme aus einer GENIE DATA auf Compact-Cassette 
anbieten. Um das aber tun zu können, brauchen wir Ihre Mithilfe. 

Wir möchten Sie also bitten, wenn Sie uns einen Artikel einsenden, legen Sie bitte auch das be- 
treffende Programm auf einer Compact-Cassette bei. 

Als kleine Entschädigung für diese Mühe, bekommt jeder Autor, dessen Artikel veröffentlicht 
wird, eine SOFTWARE-SERVICE Cassette gratis, auf der alle Programme der betreffenden 
GENIE DATA gespeichert sind. 

ETWAS ANDERES: 

Wenn auch Sie einen Artikel für die GENIE DATA haben, aber nicht über einen Drucker verfü- 
gen, reicht uns auch die Einsendung des Programms auf Cassette, die erforderlichen Ausdrucke, 
werden dann bei uns In der Redaktion erstellt. 

Also, machen Sie mit! Schreiben auch Sie Artikel für GENIE DATA l 
ÜBRIGENS: 

Selbstverständlich gilt auch noch immer unser Angebot, für private Abonnenten der 
GENIE DATA unter der Rubrik 'Kleinanzeigen' drei Textzeilen für Sie kostenlos zu veröffent- 
lichen. 

UND AN DIE COMPUTER-CLUBS: 

Wenn Sie einen neuen Club gegründet haben oder auf ein Treffen hinweisen wollen oder noch 
Mitglieder suchen oder wenn sich bei Ihnen etwas neues getan hat: 

Schreiben Sie uns einen kleinen Bericht, er wird für Sie kostenlos veröffentlicht. 

Sie sehen, wir sind Immer bemüht, Ihnen optimale Leistung zu bieten!!! 



HAUSHALTS 

FINANZEN 

COLOUR GENIE 


Wem ist es nicht schon passiert, daß er seinen 
Homecomputer gegenüber Freunden oder Fami- 
lienmitgliedern verteidigen mußte, welche 
glaubten das "Ding" tauge doch nur um flim- 
mernde Raketen oder UFOS auf der Mattschei- 
be abzuschießen. 

Was liegt näher als in einem solchen Fall die 
Nützlichkeit des Computers anhand eines Sta- 
tistikprogramms zu demonstrieren, welches in 
der Lage ist alle regelmäßigen und unregelmä- 
ßigen Kosten des Haushalts in anschaulicher 
Form zu sortieren und darzustellen. 

Programmbeschreibung: 

Das Programm fragt zunächst nach der Anzahl 
der relevanten Datazeilen; -womit die Möglich- 
keit gegeben ist, die im folgenden beschriebe- 
nen Berechnungen auf einen Teilbereich der am 
Ende des Programms stehenden Datei zu be- 
schränken. 

Die Datei beinhaltet alle im Haushalt anfallen- 
den Zahlungen wie Miete, Strom etc., wobei 
pro Zeile genau immer eine dieser Zahlungen 
mit Empfänger, Betrag, Zahlungsmonate und 
Zahlungshäufigkeit pro Jahr angegeben ist. 

Nach Eingabe der gewünschten Zahl erscheint 
das Menue: 


A - Aktuelle Monatsübersicht: 

Hier erfragt das Programm zunächst die Mo- 
natszahl (1-12) des gewünschten Monats, so- 
dann werden die für den gewünschten Monat 
anstehenden Zahlungen auf dem Schirm mit 
Gesamtsumme ausgegeben. Gleichzeitig findet 
ein Vergleich zur durchschnittlichen Monatsbe- 
lastung statt und die Differenz zwischen ak- 
tuellem und statischem Monat wird angegeben. 

D - Statistischer Monat: 

Alle Zahlungen, welche im Laufe eines Jahres 
anstehen werden auf einen Monat bezogen und 
zusammen dargestellt. 

J - Jahresbilanz: 

Eine Gesamtdarstellung der Haushaltsfinanzen 
unter Angabe der Zahlungshäufigkeit, des Ein- 
zelbetrages und der Jahressumme der einzelnen 
Posten, sowie der Jahre'sgesamtbelastung des 
Haushaltes. 

N - Neue Datenmenge: 

-führt zurück an den Anfang des Programms, 
um die Anzahl der zur Erhebung relevanten 
Daten zu verändern. 

Nach Ablauf der oben geschilderten Berechnun- 
gen erscheint jeweils die Eingabeaufforderung 
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"N - NEU D - DRUCKEN", womit die Mög- 
lichkeit gegeben ist, entweder mit N zum Me- 
nue zurückzugehen oder mit D den gesamten 
Bildschirminhalt auf den Drucker auszugeben. 

Anpassung an GENIE I/II 

Da das Programm auf einem COLOUR GENIE 
erstellt wurde, müßten für GENIE I/II folgende 
Änderungen vorgenommen werden: 

74 FORI = 15359TO 163I9STEP64 


73 POKEV,64 

Weiterhin empfehle ich die TAB-Marken und 
andere Printanweisungen dem Bildschirmformat 
des GENIE I/It (64 Zeichen) anzupassen. 


Anm.: Vielleicht gelingt es Ihnen mittels die- 
sem Programm in der nächsten "Haushaltssitz- 
ung" die nächste Systemerweiterung durchzu- 
setzen! 

Viel Glück! 


K. Schmidt 


100 ’ ************************************ 

110 "******** HAUSHALTS-FINANZEN ******** 

120 ************************************ 

130 ***** Klaus Schmidt MAI 1983 ***** 

140 ******* Bgm.-Smidt-Str. 147 ********* 

150 =■***#** 2850 BREMERHAVEN 1 ********* 

160 » ************************************ 

170 CLS: CLEAR1000 

175 DI MMN* ( 12) : DI MN* (20) , B (20) „ Z* (20) , ZA (20) 

180 F0RX=1T012: READMN* (X) : NEXT :LPRINTCHR* (15) ; 

190 PRINT§202, "ANZAHL DER RELEVANTEN DATAZEILEN" ; 

195 INPUTA: IFA<1THEN17 
200 FORX= 1T0A 

210 READN* (X ) : READB (X) : READZ* (X) : READZA ( X) 

220 NEXT 

230 CLS: PRINT"********** HAUSHALTSFINANZEN **********" 
240 PRINTS205. "A - AKTUELLE MONATSUEBERSI CHT“ 

250 PRINT§405,"D - STATISTISCHE MDN ATSUEBERS I CHT " 

260 PRINT§605,"J - JAHRESBILANZ" 

270 PRINT§805,"N - NEUE DATENMENGE" 

280 I*= INKEY* 

290 I F I *= " A " THEN330 

300 IFI*="D"THEN510 

310 IFI*=" J"THEN590 

320 1FI*="N"THENRUNELSE280 

330 CLS : PR I NT §205 , ; : INPUT "MONATSZAHL" ; M 

335 I FM< 1 ORM> 1 1 2THEN330 

340 M*=STR*(M) 

345 IFM>9THENM*=RIGHT*(M*,2)ELSEM*=RIGHT*(M*, 1) 

350 CLS: PRINT" MONATSUEBERSICHT FUER ";MN*(M) 

355 G0SUB690: PRINT 
360 F0RX=1T0A 
370 IFZ* (X) = I "M"THEN430 
380 F0RY=1T0LEN (Z* (X) ) 

390 MX*=MID* (Z* (X) ,Y, 1) : I FMX*=" / " THEN420 
400 IFLEN (M*) =2THENMX*=MID* ( Z* (X) , Y, 2) 

410 IFM*=MX*THENY=LEN (Z* ( X) ) : G0T0430 
420 NEXTY: G0TD440 

430 PRI NTN* (X) ; TAB (30) ; : PR INTUS ING "####. ##" ;B(X> 

/ 435 SU=SU+B(X> 

440 NEXTX 

450 PRINT: PRINTTAB (20) "SUMME" ; TAB (30) ; 

455 PR INTUSING "####.##"; SU 

460 F0RX=1T0A: JS=JS+B (X ) *ZA ( X > : NEXT 

470 MS=JS/12: MD=MS-SU: SU=0: JS=0 

4B0 PRI NT "MONATLICHES MITTEL" ; TAB (30) ; 

485 PRI NTUS I NG " #### . ## " ; MS : MS=0 

490 PRI NT "DIFFERENZ IM " ; MN* (M) ; TAB (30) ; 

495 PRINTUSING"####. ##" ; MD: MD=0 
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500 G0SUB700: G0T0230 
510 CLS: PRINT“ STATISTISCHER MONAT" 

515 GDSUB690 sPRINT 
520 F0RX=1T0A 

530 MB=(B(X)*ZA(X) ) /12: SU=SU+MB 

540 PRINTN* (X) ; TAB (30) ; : PRINTÜSING" ####. ##“ ; MB 
550 NEXT 

560 PRINT: PRINTTAB (20) ; "SUMME" ; TAB (30) ; 

565 PR INTUS ING "####.##"; SU 

570 PRINT: PRINT" J AHRESGESAMTSUMME" ; TAB (29) ; 

575 PRINTÜSING"#####.##"; SU* 12: SU=0 
580 GDSUB700: G0T0230 

590 CLS: PRINT" JAHRESBILANZ" : G0SUB690: PRINT 

600 PRINT“EMPFAENGER ZAHLUNGSART JAHRESGESAMT" : PRINT 
610 F0RX=1T0A 
620 JB * B (X) * ZA ( X ) 

630 PRINTN* (X) ; TAB (12) ;: PRINTÜSING"##"; ZA (X) ; 

635 PRINT" x " ; TAB ( 17) ; 

640 PRINTÜSING"###. ##";B(X) ; : PRINTTAB (30) ; 

645 PRINTÜSING"####.##"; JB 
650 SU=SU+JB: NEXT : MS=SU/12 

660 PRINT: PRINTTAB (10) " JAHRESGESAMTSUMME" ; TAB (29) ; 

665 PRINTÜSING"#####.##"; SU 

670 PRINT: PRINT "MONATLICHER DURCHSCHNITT" ; TAB (30) ; 

675 PRINTÜSING" #### . ## " ; MS 
680 MS=0 : SU=0 : GDSUB700 : G0TO23O 

690 PRINT" ( " ; A ; " STAMMDATEN) " : RETURN 

700 PRINT: PRINT-N - NEU D - DRUCKEN" 

710 I$=INKEY$: I F I " N " THENRETURNELSE 1 F I *< >" D" THEN7 1 0 
720 PRINTCHR* (29) CHR* (27) CHR* (30) 

730 V*=" ■ : V=VARPTR (V*) : POKEV, 40 

740 FORI=1740BT01 8328STEP40 

750 PQKEV+1 , I AND255: POKEV+2, INT (1/256) 

760 LPRINTCHR* (14) ; STRING* (10,32) ;V* 

770 NEXT : G0T0700 

7B0 DATA "JANUAR", "FEBRUAR", "MAERZ", " APRIL" , "MAI ", "JUNI" , "JULI " 
7B5 DATA "AUGUST" SEPTEMBER“ , "OKTOBER" , "NOVEMBER" , "DEZEMBER" 
790 ' 

800 REM NAME BETRAG ZAHLUNGSMONATE ZAHLUNGSART 

BIO DATA "MIETE+NK" , 765.23, "M" , 12 

820 DATA "STROM", 123.50, "/2/4/6/S/10/12“, 6 

830 DATA "GEZ", 39, "/1/4/7/10" , 4 

840 DATA " ZEITUNG" , 36. 80, “ 72/5/ 8/1 1 ", 4 

850 DATA "VERSICH A“ , 34, " /3/9“ , 2 

860 DATA "VERSICH B", 85, "/1/4/7/10", 4 

870 DATA "VERSICH C" , 122. 5, "/I " , 1 

880 DATA "KFZ STEUERN" , 256. 77, "/6" , 1 

890 DATA "KFZ VERSICH" , 123. 44, " /2/5/8/1 1 ", 4 

900 DATA "BENZIN", 100, "M", 12 

910 DATA "RUECKLAGEN", 100, "M", 12 

920 DATA "SPAREN" , 50, "M" , 12 
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ZEITUNG 

4 

X 

36. BO 

147.20 

VERSICH A 

2 

X 

34.00 

68.00 

VERSICH B 

4 

X 

85.00 

340. 00 

VERSICH C 

1 

X 

122.50 

122. 50 

KFZ STEUERN 

1 

X 

256.77 

256.77 

KF2 VERSICH 

4 

X 

123.44 

493.76 


JAHRESGESAMTSUMME 1150B.00 


MONATLICHER DURCHSCHNITT 959.00 


MONATSUEBERBICHT FUER MAERZ 
( 9 BTAMMDATEN) 


MIETE+NK 765.23 
VERSICH A 34.00 

SUMME 799.23 
MONATLICHES MITTEL 959.00 
DIFFERENZ IM MAERZ 159.77 


STATISTISCHER MONAT 
( 9 STAMMDATEN) 


MIETE+NK 

STROM 

GEZ 

ZEITUNG 
VERSICH A 
VERSICH B 
VERSICH C 
KFZ STEUERN 
KFZ VERSICH 


JAHRESGESAMTSUMME 


765.23 
61.75 
13.00 
12.27 
5.67 
2B.33 
10.21 
21 . 40 
41. 15 

SUMME 959.00 

1 1508.00 


VOKABEL- TRAINER 

GENIE l + ll 


Vokabeiabfrage ist ein Programm, um die Voka- 
beln einer beliebigen Fremdsprache abzufragen. 
Im Anfang mußt Du die gewünschte Fremdspra- 
che eingeben. Hast Du dies getan, erscheint ein 
Menue-Tablett. Nun als Erstes die Vokabeln ein- 
geben, danach kann man sie noch einmal aufli- 
sten lassen. Bei dieser Auflistung wird die "En- 
ter"-Taste angepeekt. Solange Du diese Taste 
drückst, werden die Vokabeln auf gelistet, läßt 
Du sie los, stoppt das Programm. Dasselbe ge- 
schieht am Ende des Listens mit der 
"Clear"-Taste. Sollten nun einige Vokabeln 
falsch eingegeben worden sein, so kann man sie 
nachträglich noch verbessern. Dazu mußt Du 
das deutsche Wort eingeben, das wird dann in 
der Vokabelliste gesucht. Ist dieses Wort gefun- 


den, kannst Du sowohl das deutsche als auch 
das Wort Deiner Fremdsprache neu eingeben. 
Nun kann die eigentliche Abfrage beginnen. 

Du kannst auch in beiden Richtungen abf ragen 
lassen, d. h. Deutsch-Fremdsprache und Fremd- 
sprache-Deutsch. Du wirst solange abgefragt, 
bis. Du alle Vokabeln richtig eingegeben hast. 
Wußtest Du eine Vokabel nicht, so gibt das Pro- 
gramm die richtige Deutung an. Alle Vokabeln 
werden mit Hilfe von Zufallszahlen abgefragt. 
Hat man alle Vokabeln richtig angegeben, so 
wird auch noch angezeigt, wie oft man eine Vo- 
kabel nicht wußte und es erfolgt ein Rücksprung, 
zu "Menue". 

Noch ein Tip! Solltest Du aus irgendeinem 
Grund mit "Break" oder System Reset aus dem 
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Programm aussteigen, so drücke keinesfalls wie- gramm deshalb nach einer Unterbrechung mit 
der "Run", dabei würden alle Daten, die Du ein- Goto 50. 

gegeben hast, wieder gelöscht. Starte das Pro- Ralph Mermagen 

0 7 (C) BY RALPH MERMAGEN 

1 * 5000 KOELN 40 UNTER GOTTES GNADEN 135 
5 CLEAR1000 

10 DIMAt ( 100) , B4 ( 100) 

50 CLS: PRINT " VOKABELABFRAGE PRINT: INPUT " FREMDSPRACHE " :F* 

60 PRINT" WAS WUENSCHEN SIE ?»: PRINT" 1 - VOKABELN E I NGEBEN " : PR I NT " 2 
- VOKABELN VERBESSERN" : PRINT" 3 - LISTE DER VOKABELN“ : PRINT" 4 - AB 
FRAGE DEUTSCH => ";F*:PRINT" 5 - ABFRAGE ";F*;" => DEUTSCH" 

70 A*=INKEY* 

75 A=VAL (INKEY*) : IFA< 10RA>5THEN75 
80 0NAG0T01 00,200, 300, 400, 500 
100 CLS 

110 PRINT: PRINT"ZUM VOKABELEINGEBEN IRGEND EINE TASTE DRUECKEN. " : PRI 
NT "ZUM BEENDEN ’ ÄÄ' EINGEBEN. " 

120 A*= INKEY* 

130 IFINKEY*=" "THEN130 
135 X=0 

1 40 CLS SPRINT" DEUTSCH " , TAB (32) F* 

150 INPUT A* (X ) : PRINTTAB (32) CHR* (27) ; : INPUTB* (X) : IFA* (X)="ÄÄ"ORB* (X) = 

“ÄA"THEN16OELSEX=X+l:G0T0150 

160 AN=X— 1 

170 CLS: GDT060 

200 CLS: PRI NT "GEBEN SIE BITTE DAS DEUTSCHE WORT EIN": INPUTD* 

210 FORX=OTOAN: IFD*=LEFT* (A* (X) , LEN (D*) ) THEN230ELSENEXT 

220 PRI NT "DAS WORT IST NICHT IN DER DATEI F0RX=1T01 000: NEXT: CLS: GO 

T060 

230 PRINT"DAS WORT IST IN DER DATEI PR INT "BITTE GEBEN SIE NUN DIE 
RICHTIGEN WOERTER EIN." 

240 PRINT"DEUT5CH"TAB(32)F* 

250 INPUTA1 ( X ) : PR INTTAB (32) CHR* (27) ; : I NPUTB* ( X ) 

260 CLS: G0T060 

300 CLS: PRINT "LISTE DER VOKABELN" : PRI NT "LISTEN MIT ’ ENTER’" 

305 PRI NT "DEUTSCH" TAB (32) F* 

310 F0RX=0T0AN 

320 IFPEEK ( 1 4400) < MTHEN320 

330 PRI NT A* (X) TAB (32) B* (X ) : NEXT : PRINT" ’ CLEAR’ FUER MENUE DRUECKEN." 

340 IFPEEK ( 14400) < >2THEN340ELSECLS: G0T060 
400 CLS : PR I NT “ ABFRAGE " :PRINT“ DEUTSCH" TAB (32) F* 

405 N=0 

410 F0RX=0T0AN 
415 PRINT 

420 Y=RND (AN+1 ) -1 : IFLEFT* ( A* ( Y) , 1 ) ="Ä"THEN420 

430 PRI NT A* (Y) " = ";: INPUT A*: IFA*=LEFT* (B* (Y) , LEN (A* )) THEN440ELSE 

450 

440 PRINT "RICHTIG": A* (Y) ="Ä"+A* (Y) :G0T046O 
450 N=N+ 1 : PR INT "FALSCH" TAB (20) B* ( Y) : G0T0420 

460 NEXT : PR INT "ALLE VOKABELN WURDEN ABGEFRAGT" ; PR INT" SIE WUSSTEN" ;N? 
"MAL EINE VOKABEL NICHT" : F0RX=1 TO 1000: NEXT: FORX=OTOAN: A* (X) =RIGHT* ( A 
*(X) , LEN(A*(X) )-l) : NEXT: CLS: G0TQ60 
500 CLS: PRINT" ABFRAGE" : PRINTF*TAB (32) "DEUTSCH" 

505 N=0 

510 FORX=OTOAN 
515 PRINT 

520 Y=RND (AN+1 ) —1 : IFLEFT* (B* ( Y) , 1 ) ="Ä"THEN520 

530 PR1NTB* (Y ) " = ";: INPUT A*: I FA*=LEFT* (A* (Y) , LEN (A*) ) THEN540ELSE 

550 
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540 PRINV'RICHTIG": B$ (Y) ="Ä"+B$ (Y) : G0T0560 
550 N=N+-1 : PRINT "FALSCH "TAB <20> A$ (Y) : GDTD520 

560 NEXT: PRINT" ALLE V DK ABEL N WURDEN ABGEFRAGT" : PRINT" SIE WUSSTEN" ;N; 
"MAL EINE VOKABEL NICHT FORX=l T01000: NEXT: FDRX=OTOAN: B$ ( X ) =RIGHT$ (B 
*(X) , LEN (B$ ( X ) ) -1) : NEXT : CLS: GQT006O 
610 PR I NT " G DOD " : GOT 05 00 


BTEXT 1.9 

Nach BTEXT 1.8, aus der GENIE DATA Nummer 1, kommt jetzt BTEXT 1.9 
für Genie l + ll. Als Drucker wird der Star DP 510 verwendet. 

Im Text sind nur Änderungen angegeben, die ausführliche Bedienungs-Anlei- 
tung finden Sie in der GENIE DATA Nummer 1. 


ÄNDERUNGEN: 

II II lf II 

Die Befehle sind von '* = 1 auf '§ § ' umge- 
schrieben worden, man braucht jetzt keine 
'SHIFT'-Taste mehr für 
§p oder §P drucken den Text aus. 

§e oder §E springen in den Edit-Modus. 

§new oder §NEW starten neu. 

Im Editor ist eine Autostart-Eingabe, die sofort 
nach dem Eintippen der Buchstaben 'Q' oder ’q' 
zurückkehrt, nach 'L' oder '1' auflistet, nach ’C' 
oder 'c' ändert und nach 'D' oder ’d' Zeilen 
löscht. 

Soweit zu den Feinheiten. 

Neu sind: 

'§S§I' oder '§s§i' als Befehle wie oben für 
ITALIC-Schrift. 

'§S§G' oder '§s§g' für gerade Schrift. 

Diese Befehle werden genau wie die anderen als 
Textzeile eingegeben, erscheinen aber zusätz- 
lich im Edit-Modus als dritte Abkürzung vor der 
Zeilen-Nr., und zwar als 'I' wie ITALIC-, und 
'G' wie gerade Schrift. 

Zu den Programmzeilen: 

(13) 

stellt einen Tabulator dar, 


(240) 

hierdurch darf man auch am Anfang einer Zeile 
versehentlich 'Pfeil links 1 drücken, ohne daß das 
Programm mit einer Fehlermeldung stoppt, 

(424), (426) 

IT ALIC-Kommandos, 

(11 80)-(l 200) 

sind im Ausbau leider etwas lang geraten, da 
nach jeder Zeile die Schriftbreite und -art um- 
geschaltet wird, für den Fall, daß man das Pro- 
gramm abbricht, 

(501 1)-(5015) 

Autostart-Eingabe 

(6000)-(7010) 

mußten modifiziert werden, damit nach einem 
Druckbefehl in der nächsten Zeile der Editor 
wieder aufgerufen werden kann. 

Änderungen ff.. 

Vor jeder Zeile wird die Eingabelänge markiert, 
um eine Übersicht über die Zeilenlänge zu ha- 
ben, und zwar abhängig von der Schriftbreite 
und der Zeichenzahl pro Zeile (80/96). 


Ulli Mühlhoff 


Schriftmuster Dies soll ein Test werden. 

Vas Gleiche nun in Italics. 

<■/ jz ws- JL Ä &■ 2 <z fr* tf: jg r? Sj^o s - j 2* 

Oder in ganz kleiner Schrift- ? 

Lieber Mieder normale Breite . 

Dazu noch in geraden Eiuchstaben. 

Au cz li h i er gibt es 
Gr ossbuchstaben - 
Und wenn man will, auch ganz enge Schrift ! 

Probieren Sie es selbst. 
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1 ' Basic Tex tverarbei tung 

2 ' aus Genie-Data Nr. 1 

3 ' bearbeitet v. Ulli Mühlhoff 18.04. 83 

10 CLS: PRINT: PRINT 

11 PRINT " BASIC TEXTVERARBEITUNG 1.9" : PRINT 

12 CLEAR 5000 : DIM Pf (.100) 

13 INPUT "Auf welcher Position soll der Text anfangen (TAB) 

PO : PRINT : GÜSUB 7220 : INPUT "BREITE des Textes " ; B 

14 Sf ="N" : Df ="F" : Gf="G" : LPRINT CHRf (27) "5" : 

50 IF LEFTf (Bf. 1 ) = "§" GÜSUB 400 

60 Bf =" " : GÜSUB 7390 : GÜSUB 200 

199 GOTO 50 

200 PRINTCHRf (14) ; : Af =INKEYf : IF Af="" GOTO 200 
210 PRINTCHRf (15) : : A=ASC(Af> 

240 IF A=8 PRINT Af ; ; IF LEN (Bf XI THEN PRINT : GOTO 200 
ELSE Vf =LEFTf (Bf, LEN (Bf ) -1 ) : Eif=Vf : Vf-'" 1 : GDTD 200 
250 IF A=13 PRINTCHRf (130) : X=X+1 : IF LEFTf (Bf, 1 ) <> "§" THEN 
Pf(X)= Bf+Df+Gf+Bf : RETURN : E[LSE RETURN 


300 

Af = 

=CHRf ( A) : 

PRINT Af ;s 

Bf=Bf+Af : GOTO 200 

400 

IF 

Bf- 

"§5§N" 

OR 

Bf = 1 

§s§n " 

Sf == "N " 

GOTO 600 

410 

IF 

Bf = 

"§S§S" 

OR 

Bf=‘ 

§sis" 

Sf="S" 

GOTO 600 

420 

IF 

Bf = 

" §S§B " 

OR 

Bf =' 

§s§b " 

Sf="B" 

GOTO 600 

424 

IF 

Bf = 

" §S§ I " 

OR 

Bf =‘ 

§sii " 

Gf =" I " 

GOTO 600 

426 

IF 

Elf = 

"§S§G" 

OR 

Bf =' 

§s§g" 

Gf ="G" 

GOTO 600 

430 

IF 

Bf = 

" §D§F" 

OR 

Bf=‘ 

§dif " 

Df ="F" 

GOTO 600 

440 

IF 

Bf = 

" §D§B " 

OR 

Bf =' 

§d§b " 

Df="B" 

GOTO 600 

450 

IF 

Bf = 

" §D§M" 

OR 

Bf =' 

§d§m’‘ 

Df="M" 

GOTO 600 

460 

IF 

Bf= 

”§P'' GR Eif“" §p 

" GOSUB 1000 

RETURN 

470 

IF 

Bf = 

" §E " OR Bf =" §e 

" GOSUB 5000 

RETURN 

480 

IF 

Bf“ 

" §NEW" 

OR 

Bf~" 

§new" 

RUN 



490 PRINT "*** Syntax fehl er *##" : FÜR UU=1 TO 200 : NEXT UlJ 


600 X=X-1 : RETURN 
1000 FOR 1=1 TO X 
1010 Xf=Pf(I) 

1020 IF MIDf ( Xf , 2, 1>= 

"B" 

GOSUB 2000 

: ^BLOCKS ATZ 

1030 IF MIDf (Xf j 2, 1 ) = 

"M" 

GOSUB 3000 

: ’ =M ITTEL ACHSE 

1040 IF MIDf (Xf,3, 1)= 

" I" 

Gf=" I" 


1050 IF MIDf ( Xf , 3, 1 ) = 

"B" 

Gf="G" 



1070 FÜR U=4 TO LEN(Xf) 

1080 HIf =MIDf ( Xf , U, 1 > 

1160 PRf =PRt+HIf 
1170 NEXT U 

1180 IF LEFTf (Xf,l)= "N" THEN IF Gf="I" THEN LPRINT CHRf(27) "4" : 

LPRINT CHRf<18) ; CHRf(27) "P" CHRf (II) ; TAB(PO) PRf ELSE 
LPRINT CHRf (27) "5" : LPRINT CHRf (18) ; CHRf (27) "P" CHRf ( I I ) ; 

TAB (PO) PRf 

1190 IF LEFTf < Xf . 1 ) = "B" THEN IF Gf="I M THEN LPRINT CHRf (27) "4" : 

LPRINT CHRf (18) ; CHRf (27) "P" CHRf ( I I > ; TAB (PO) CHRf (14) PRf 
ELSE LPRINT CHRf (27) "5" : LPRINT CHRf (18) : CHRf (27) "P" CHRf (II) : 
TAB (PO) CHRf (14) PRf ; 

1200 IF LEFTf (Xf,l>= "S" THEN IF Gf="I" THEN LPRINT CHRf (27) "4" : 

LPRINT CHRf (18) ; CHRf (27) "P" CHRf ( I I ) ; TAB (PO) CHRf (15) Ilf 
PRf ; : ELSE LPRINT CHRf (27) "5" : LPRINT CHRf (18) ; CHRf (27) "F" 1 
CHRf (II) ; TAB (PO) CHRf (15) Ilf PRf ; 

1203 LPRINT CHRf (27) "S" ; 

1205 LPRINT CHRf (18) CHRf (27) "P" CHRf (II) ; 

1210 PRf =" " : NEXT I : LPRINT : RETURN 
2000 Hf=RIGHTf (Xf , LEN (Xf ) -3) 

2010 IF L.EN(Hf) < B-B RETURN 
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2020 IF LEN(H*> >= B RETURN 

2030 GDSUB 2200 : X*«LEFT*<X*, 3>+H* : RETURN 
2200 P=RND ( LEN < H* ) ) 

2210 IF MID$(H$,P,1)=" " H1*=LEFT* <H*,P) : H2*=RIGHT* <H*, LEN <H*> -P> : 
H*=H1*+" "+H2* : Hl*»"" :H2*="" 

2220 IF LEN <H*) < B GOTO 2200 
2230 Hl*«"" : H2*=" " : RETURN 
3000 H*=RIGHT*(X*.LEN(X*>-3> 

3010 C«LEN(H*)/2 

3020 IF RIGHT* (STR* <C) , 1 >="5" GOSUB 3500 
3030 L"LEN(H») 

3040 P=(B-L)/2 

3045 P=ABS(P> P= INT <P > 

3050 H*=STR ING* <P, " " ) +H* 

3060 X*=LEFT*<X*,3)+H* 

3070 RETURN 

3500 RANDOM : F'=RND (LEN (H*> > : IF MID* (H*. P, 1 > <> " " GOTO 3500 
3510 H1*=LEFT*(H*,P) : H2*«RIBHT* <H*, LEN (H*)-P) 

3520 H*=H1*+ " " +H2* : RETURN 
5000 PRINT: PRINT "** Edit **" 

5010 PRINT: PRINT "Befehl : " : 

5011 0*= INKEY* : PRINTCHR* (14) ; 

5012 0*» INKEY* : IF 0*="" GOTO 5012 

5013 IF 0*< >"Q " AND 0*0" q" AND 0*<> ,, L" AND 0*<>"1" AND 0*<>"C" 

AND □*< >“c" THEN 5014 ELSE 5015 

5014 IF 0*< >"D" AND 0*<>"d M GOTO 5012 

5015 PRINT 0* 

5020 IF 0*="a" OR 0*="q " X=X-1 : PRINT : RETURN 

5030 IF 0*a= "L" OR D*«"l " GCISUB 5900 : GOTO 5500 

5035 IF 0*«"C" OR 0*="c" GOSUB 7000 : GOTO 5500 

5040 IF 0* : = " D " OR 0*="d" GOSUB 7200 : GOTO 5500 

5490 PRINT "## Edit Fehler ##" 

5500 GDTO 5010 

5900 IF X<2 GOTO 6040 

6000 FOR 1 = 1 TO < X— 1 > : IF LEN<P*(I))<4 THEN 6030 ELSE PRINT 
LEFT*<P*<I> ,3) 5 I; "> " ; 5 PRINT RIGHT* (P* ( I ) , LEN (P* ( I ) > -3) 

6010 A*= INKEY* : IF A*<>"" GOTO 6200 
6030 NEXT I 

6040 PRINT "#* Listen beendet **" : RETURN 
6200 A*« INKEY* : IF A*=" " THEN 6200 ELSE 6040 
7000 INPIJT " Zei 1 en-Nr . " $ Z 
7005 PRINT P*(Z) s PRINT 

7010 B*=" " : GOSUB 200 : IF P*(X)=" " PRINT" Im ’C’ -Modus können" 

" keine Steuerzeichen verändert werden ! " : GOTO 7016 

7015 P*(Z)=LEFT*(P*(Z) ,3) + RIGHT* (P* < X ), LEN (P* ( X >> -3> 

7016 X=X~ 1 : RETURN 
7018 •- 

7200 PRINT : INPUT "Zeil en-Nr. " ; Z 

7210 FOR Q=Z TG X : P* (□) =P* (0+1) : NEXT Q : X«X-1 : RETURN 
7220 ” 

7230 » UNTERPROGRAMM SCHRIFTBREITEN 

7240 ’ . 

7250 PRINT "Schri-ftbreite : 80 Z/Z (1)" 

7260 PRINT " 96 Z/Z (2) ? >> 

7270 I*= INKEY* 

7280 PRINTCHR* (14) ; 

7290 I*= INKEY* : IF 1*="" GOTO 7290 ijt 

7300 I I =VAL ( I* ) 

7310 IF IIOl AND 1102 GOTO 7290 
7320 PRINTCHR* (15) ; 



DRIVER 


SOFTWARE UP 

FÜR 

Hatten Sie schon Probleme mit der Groß- und Klein-Schreibung bei Ihrem Colour Ge- 
nie ? 

Dieses Programm hilft Ihnen! Es dreht die Funktionen um und Ihr Computer benimmt 
sich wie eine normale Schreibmaschine. Also mit Shift - Großbuchstaben und ohne 
Shift - Kleinbuchstaben. Paßt sich problemlos an die meisten Basic-Programme an. 

Bestell-Nr. 14 (16K) Nur 29,80 DM 

Bestell-Nr. 15 (32K) Nur 29,80 DM 

PAC-LAB 1 

Hier handelt es sich um ein wirklich faszinierendes Spiel. Sie steuern Emilie durch ein 
Labyrinth. Aber leider werden Sie von hungrigen Gespenstern verfolgt, die Sie liebend 
gerne fressen würden. Was bleibt Ihnen anderes als die Flucht? Aber probieren Sie 
trotzdem beim Flüchten soviele Punkte wie möglich zu machen. 

Bestell-Nr. 20 Nur 39,-- DM 


PAC-LAB II 

Hier wurde der bekannte Pac-Lab noch verbessert! Das Labyrinth wurde vergrössert 
und, und, und 

Bestell-Nr. 21 Nur 49,— DM 


VIER GEWINNT 

Das bekannte Strategie-Spiel jetzt auch auf Ihrem Colour Genie, mit ansprechender 
Grafik und tollem Sound, in Farbe und wahnsinnig schnell. Mit diesem Programm wird 
Ihr Computer zu einem sehr starken Gegner! 

Bestell-Nr. 22 Nur 25,— DM 



die einen Cassetten-Recorder zum Laden und Speichern 
verwenden. 

Bei uns zu einem sagenhaften, unschlagbaren Preis: 


Bestell-Nr. 25, 10 Leer-Cassetten 
Bestell-Nr. 26, 100 Leer-Cassetten 


NUR 25,60 DM 
NUR 198,— DM 




JD ZUBEHÖR 
COLOUR GENIE 


COLOUR 

GENIE 

SCHACH 


DAS STÄRKSTE SCHACH FÜR EG 2000 ! ! 1 
Sieben Spielstufen, spielt schwarz und 
weiß, macht Zugvorschläge, erkennt nur ( 
rege I gerechte Züge an, stellt Schachbrett 
auf Bildschirm dar, zeigt den besten Zug, 
knackt Schachprobleme, und, und, und, . . . 

Bestei I-Nr. 27, nur 59, — DM 

Wer da ein anderes Schachprogramm kauft, 

ist es selbst Schuld 1 I 1 


CGMON 

CGMON ist einer der komfortabelsten Maschincnsprachc-Monitorprogramme. Er hat 
vieles, wovon andere nur träumen! Z.B. Breakpoint-Routinen, Register- Anzeige, wahl- 
weise im Speicher Hoch und Tief-Ladbar etc. 

Bestell Nr. 28 Nur 39,— DM 

SYSANA 

Ein Analyse-Programm für System-Cassetten. Listet jeden einzelnen Programmblock 
mit Adresse und Länge, gibt Ihnen allgemeine Informationen zum Programm. 

Bestell-Nr. 29 Nur 24,50 DM 

ROBOT 

Ein Action Spiel der Spitzenklasse. Bewegen Sie die Roboter im Kernkraftwerk! 

Bestell-Nr. 36 Nur 29 , t- DM 

LABEL-DRUCKER 

Djeses Programm druckt Ihnen Labels fiir Ihre Cassettcn, mit millimctergenauen 
Schneide- und Falz-Marken. 

Bestell-Nr. 37 29,-- DM 


Wie Sie selbst sehen, bieten wir Ihnen ein ausgesuchte* Sortiment von Software und Zubehör 
für Ihr Colour Genie. Aber die kleine Auswahl in dieser Anzeige ist selbstverständlich nicht 
Ö alles. 

q DESHALB: FORDERN SIE NOCH HEUTE UNSEREN UMFASSENDEN GESAMT-KATALOG AN! 

i' In unserem Katalog finden Sie noch viele weitere „Bonbon's" für das Colour Genie, z. B. 

Transfer-Software, die es Ihnen ermöglicht Programme mit Genie I und II Besitzern zu 
tauschen, viele Hilfs-Programme und jede Menge Spiele! 

Für Ihre Bestellung benutzen Sie bitte die GENIE DATA Kontaktkarte aus diesem Heft und 
richten Sie an: Ralf M. Hübben, Verlag für Computertechnik, 542? Marienfels/Ts. 

Vergessen Sie nicht Bestell-Nr. und Menge anzugeben. HÄNDLER-ANFRAGEN ERWÜNSCHT!! 
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7330 

PRINT II 



7340 

> 



7350 

IF 11=1 

ZS* 1.7 : 

I I*=" " 

7360 

IF 11=2 

ZS*1.4 : 

II*=" 11 

7370 

PRINT 



7380 

RETURN 



7390 




7400 

’ UNTERPROGRAMM 

JEDE ZEILE MARKIEREN 

7410 

y 



7420 

IF S*="N" 

PRINT 

STRING* (B, 11 . " ) 

7430 

IF S*="S" 

PRINT 

STRING* (B#ZS, " . " ) 

7440 

IF S*="B" 

PRINT 

STRING* (B/2, " .") 

7450 

RETURN 



7460 

END 
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Bei dem Programm Master-Mind handelt es sich 
um das altbekannte Spiel, bei dem es darum 
geht, den geheimen Code des Computers zu 
knacken. Da sich das Spiel selbst erklärt, kann 
hier auf eine Erklärung verzichtet werden. Be- 
achten Sie aber beim Eintippen die diversen 
Grafik-Zeichen, die vom Drucker nicht so dar- 


gestellt werden, wie sie getippt werden sollen. 
Welche Taste Sie für welches Zeichen einsetzen 
müssen, sehen Sie unter dem Programm-Aus- 
druck. Das Programm wurde uns zur Veröffent- 
lichung freundlicherweise von der Firma 
Schmidtke Elektronik in Aachen zur Verfügung 
gestellt. 


10 CLS: FCLS 
20 CLEAR100 
30 : FGRs FCOLOUR2 

40 PLOTO , OTG 1 55 , OTO 1 55 , 95T00, 95TD0 , O 
45 51 #=10 12 
50 F0RX=DT03 
60 SI#=SE#: FC0L0UR4 

70 PLOTIO+X, 40T015+X, 10TD20+X, 25TD25+X, 10T030+X,40 

BO PLDT35+X, 40T040+X, 10 

90 PLQT43, 10+XT050, lÖ+X 

100 PLQT50+X , 10T055+X , 40 

110 PL0T40, 21 +XT053, 21 + X 

120 PLOT 60, 40-XT075-X , 30T063-X , 22T073-X , 10 
130 PLOT SO, 10+XT095, 10+X 
140 PLOT 06+X, 12T0S3+X,40 

150 PLOT 115, 1Q+XTD100, 10+X TOI 10-X, 25T01O0, 40-XT01 15, 40-X 
160 PLOT 120+X , 40TD125+X, 10T0135+X, 25T0122, 28+XTD140-X, 40 
170 PL0T142, 25+XTO 152, 25+X 
180 FCQLQUR3 

1 90 PLOT 10+M , BOTG 16+ X , 50T020+X , 65TD25+X , 50T030+ X , BO 
200 SI#=S£#i PLDT30+X , 0OTO43+X , 50’ PL0T3S+X, 80T043+X, 50 
210 PLOT 4&+X i 0OTQ3 l+X , 50T061 +X , 80T065+X , 50 
220 PLOT 73+X , B0TQ6S+X , SO 

230 PL0T77 , 50+XTQB7-X , 60T0B6-X , 70TD72- X . 80 

240 WEXT 

250 FC0LQUR2 

260 FQR3i»23TGlBTgF-.5 

270 CIRCLE 120,65,1 

280 WEXT 

290 FORX=*tTDiOQÖ|NEXT 
300 LSR 
310 COLOUM 
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320 PRINT : PRINT COPYRIGHT BY REINHOLD MIR ^ Nr."SI# 

330 PRINT: PRI NT" S P I ELREGELN" 

340 PRINT: PRINT"DER COMPUTER SETZT AUS SECHS FARBEN" 

350 PRINT "VIER IN EINE REIENFQLGE. DIESE MUSS " 

360 PRINT "DURCH LOGISCHE UEBERLEGUNG INNERHALB " 

370 PRI NT” VON HQECHSTENS 10 SCHRITTEN HERAUS-"' 

3S0 PRI NT "GEFUNDEN WERDEN " 

390 PRINT: PRINT"V I E L S P A S S" 

400 PRINT : PRI NT " P. S. DAS KOMMANDO ‘AUS’ ZI EGT DIE" 

410 PRINT" LQESUN6 

420 PRINT : PRINT" DAS KOMMANDO 5 ZEIG' LISTET-" 

430 PRINT" DIE ERSTEN VERSUCHE IN " 

440 PRINT" EINER UEBERS I CHTLI CHEN FORM." 

450 PRINT: PR INT .-PRINT” *** PRESS SPACE BAR FOR CONTI NUE 
460 A$=INKEY* 

470 IF A$ = " "THEN460 
480 CLS 

490 G0SUB500: PR INT §300, : G0T0650 
500 REM 

510 PRI NT § ö . "FARBEN-SCHLUESSEL: " 

520 C0L0UR3 

530 PRINT: PRINT" R--ROT JE I 
540 C0L0UR5 

550 PR I NT " O-ORANG JE l " ; : 

560 C0L0UR6 

570 PRINT"B= BL AU JE l " s 
SSO COLOUR4 

590 PR INT: PR INT" Y=GEL« I 1 : : 

600 CDLÜUR2 

610 PRINT"G=GRUENJE l “ ; : 

620 C0LDUR7 

630 PRINT"P=PURPUJE I " 

640 PR I NT : PR I NT : PR I NT : RETURN 
650 DIM B* (10) , Y< 10) , Z (10) 

660 C OLDURI 

670 C <0) =4 

680 FORN= 1 TÜ4 

690 CCN)=INT(6*RND(0)+1> 

700 NEXTN 
710 FOR N=1 TD4 
720 X=C(N) 

730 GOSUB1420 
740 C(N)=X 
750 NEXTN 
760 P*= M “ 

770 F0RX1=1T04 

780 P$=P$+CHR*(C(X1) ) 

790 NEXTX1 
800 FOR P=1 TD10 

810 PRINT-SCHRITT-NUMMER"; P; " STRING* ( 10, B> ; 

820 INPUTG*: PRINT§343, " " ; : PR INT : PRINT 

B30 IFG$="ZEIG"THEN1540 

840 1 FG$=" AUS "THENCLS: GOTO 1 1O0 

850 I FLEN < G$ ) < >4THEN 1810 

860 G0SUB870: G0T0990 

870 F0RAA=1T04 

880 IFMID* (G*, AA, 1) =”R"THEN1690 
890 3FMID* (G*, AA, 1 ) ="0"G0TD1710 
900 IFMID* (G*, AA, 1 ) ="B“ GOTO 1730 
910 IFMID* (G$, AA, 1 ) ="Y"G0T01750 
920 IFMID* (6$, AA, 1 ) ="G" GOTO 1770 
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930 IFMID* (G$, AA. 1 ) ="P"G0TD179ü 

940 IFMIDJ <G*. AA. 1 ) =" "DRMID* (B*, AA, 1 ) < >"R"ORMID* <G$, AA, 1 ) < >"0 "DRM ID4 (G*, A 
A, l)<>*'B"ORMlb* (G$, AA, 1 > < >" Y"ORMID* <G», AA, 1 )<>"G"ORMID« (G*, AA, 1)< >"F"THEN 
PR I NT " — " : 

950 REM 
960 NEXTAA 
970 CDLDUR1 
980 RETURN 
990 C0L0UR1 
1000 B$(P)=G* 

1010 GOSUB 1190 
1020 IFB=4THEN1 660 
1030 GOSUB 1280 

1040 PRINT: PRINT: PRINT: PRINT: PRINTB; "schwarze Stipp", 

1050 Y ( P) =B 

1060 PR INTU; "weisse Stipp PRINT: G0SUB500 
1070 Z(P)=W 
1080 NEXTP: CLS 

1090 PR I NT : PR INT : PR I NT " Le i der nicht Gescha-ft !!!" 

1100 PRINT: PRINT" DIE LOESUNG LAUTET: " ; P* 

1110 PRINT 

1120 G*=P$: G0SUB870 

1130 PR INT : PR INT : PRINT "Neuer Versuch Y=Yes or N=No";: 

1140 INPUTAt 
1150 CLS 

1160 IFLEFT$ ( A$, 1 ) =" V'THENCLEAR: G0T0490 

1170 PRINT 

1180 END 

1190 FDRX1=1T04 

1200 G(X1)=ASC (MID* (G$, XI, 1) ) 

1210 NEXTX1 

1220 B=Q 

1230 FDRK=1T04 

1240 IFG (K) < >C (K) THEN1260 

1250 B=B+1 

1260 NEXTK 

1270 RETURN 

1280 FORX 1= 1TÜ4 

1 290 R(X1 > = ASC ( MI D$ ( P$ , XI, 1) ) 

1300 NEXTX1 

1310 W=0 

1320 FDR 1=1 TG4 

1330 FÜR J=1T04 

1340 IFG C I ) < >fi ( J ) THEN1380 

1350 W=W+1 

1360 R ( J) =0 

1370 GGT0139O 

1330 NEXTJ 

1390 NEXTI 

1400 W=W-B 

1410 RETURN 

1420 IFXO1THEN1450 

1430 X=B9 

1440 RETURN 

1450 IFXO2THEN1470 

1460 X=82: RETURN 

1470 IFXO3THEN1490 

1480 X=80: RETURN 

1490 IFXO4THEN1510 

1500 X=79: RETURN 
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1510 IFXO5THEN1530 
1520 X=71: RETURN 
1530 X= 66 : RETURN 
1540 V=P-1 

1550 CLS: PR INT "VERMUTUNG ", "SCHWARZE" , " WEISSE" 

1560 PRINT" 

1570 F0RI=1T0V 
1580 G*=B*<I> 

1590 G0SUBB70 

1600 PRINT" " ; Y ( I > , " “jZ(I) 

1610 PRINT : NEXTI 

1620 PRINTSS41, "DRUECKE SPACE BAR FOR CONTINUE"; 

1630 IFINK£Y$=" "THEN1630 
1640 CLS:PRINT§300, 

1650 G0SUB500 : GDT08 1 O 

1660 PRINT : PRINT : PRINT : PRINT"G ESCHAFFT IM ";P;". DURCH- 


1670 PRINT : PRINT"G A N G ! ! ! ! " 

1680 GOTO 1130 
1690 CDL0UR3 

1700 PRINT" Je IR"; : G0T0950 
1710 COLOUR5 

1720 PRINT" Jg 10"; : G0T0950 
1730 C0L0UR6 

1740 PRINT" Jg IB"; : G0T0950 
1750 C0L0UR4 

1760 PRINT" Jg IY"; : G0T0950 
1770 C0L0UR2 

1780 PRINT" Jg IG“; : G0T0950 
1790 C0L0UR7 

1800 PRINT" Jg IP '* 5 :GOT0950 
1810 PR INT§840, "FALSCHE EINGABE - 
1820 F0RTT=1T01000: NEXT 
1830 PRINT5B40, " 

T0810 


[ BEACHTEN SIE: ! 

J = 

MOD 

SEL - SHIFT I 

g = 

MOD 

SEL - AT 

1 = 

MOD 

SEL - SHIFT P 


VERSUCH ES NOCH EINMAL" 

" ; : PRINT§320, ; 


: GO 


PRINT TO LPRINT 


Wenn man ein Programm, das für die Ausgabe 
auf den Bildschirm gedacht ist, für die Ausga- 
be auf einen Drucker modifizieren will, kann 
dies bei langen Programmen sehr zeitraubend 
sein. Aber für solche Aufgaben hat man ja sei- 
nen Computer. Nachfolgendes Assemblerpro- 
gramm ist auf dem TRS-80 Modell I und dem 
GENIE I, II lauffähig. Es ändert alle 
PRINT-Anweisungen in Zehntelsekundenschnelle 
in LPRINT-Anweisungen um (Für ein 14 K lan- 
ges Adventureprogramm benötigt es etwa eine 
Sekunde!). 

Die Anweisungen PRINT #- 1 und PRINT(jl wer- 
den nicht umgewandelt, da sie auf den Drucker 
nicht ausgegeben -werden können. Das Pro- 


gramm stellt zuerst die Anfangs- und Endad- 
ressen des BASIC-Programmes fest. Dann 
durchsucht es den Speicher nach PRINT-Anwei- 
sungen, die als 178 abgespeichert werden. Hat 
es eine 178 gefunden, wird sie in eine 175 
(LPRINT) umgewandelt, wenn das nächste Zei- 
chen kein@ oder # ist. Das Programm muß 
durch MEM SIZE 32615 gesichert werden. Auf- 
gerufen wird es durch den Befehl "NAME". 
NAME kann wie die normalen L-II BASIC-Be- 
fehle (RUN, LIST, etc.) als Anweisung benutzt 
werden. So läßt sich eine Abfrage, ob man die 
Anzeige auf den Drucker oder auf den Bild- 
schirm haben will, ohne Probleme in ein Pro- 
gramm integrieren. 

Axel Schneider 


00010 ?***** PRINT TO LPRINT VERSION 1.3 ******* 
00015 ; 19B3 BY AXEL SCHNEIDER 
00020 ;5000 KDELN 40 
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00025 ; BODENSHOFWEG 1 




00030 * 0221 / 4S7452 



7F67 


00100 

ORG 

7F67H 


7FE7 

217B7F 

00130 ANFNG 

LD 

HL, BEGIN 

5 INITIALISIEREN 

7F6PI 

22BF41 

00160 

LD 

( 16783), HL 

7F6D 

21CB7F 

00190 

LD 

HL, TEXT 

S TEXT AUF BILDSCHIRM 

7F70 

CDA728 

00220 

CALL 

028A7H 


7F73 

C3CC0E 

00250 

JP 

06CCH 

sruecksprung 



00270 ; PRODRAMMBEGI N 



7F7G 

E5 

00280 BEGIN 

PUSH 

HL 

5BASICPRMZEIGER RETTEN 

7F77 

21F940 

00310 

LD 

HL, 16633 

5 BAS I CPROGRAMMENDE 

7F7FI 

4E 

00340 

LD 

C, (HL) 


7F7B 

21FA40 

00370 

LD 

HL, 16634 


7F7E 

46 

00400 

LD 

B, (HL) 


7F7F 

0B 

00430 

DEC 

BC 


7F80 

C5 

004E0 ABFR 

PUSH 

BC 

SUEBERGABE DER SPEICHERZELLE 

AN HL 





7FB1 

El 

00490 

POP 

HL 


7F82 

3EB2 

00520 

LD 

A, 178 

SPRINT BEFEHL ? 

7FB4 

BE 

00550 

CP 

(HL) 


7F85 

C29S7F 

00580 

JP 

NZ, NICHT 

5 KEINER 

7FBS 

23 

00610 

INC 

HL 


7FB9 

3E40 

00640 

LD 

A, 64 

SPRINT 3 ? 

7FBB 

BE 

00670 

CP 

(HL) 


7FBC 

CA9S7F 

00700 

JP 

Z, NICHT 

S JA 

7FBF 

3E23 

00730 

LD 

A, 35 

SPRINT #-i? 

7F91 

BE 

00760 

CP 

(HL) 


7F92 

CA9S7F 

00790 

JP 

Z, NICHT 

; JA 

7F95 

2B 

00820 

DEC 

HL 


7F9G 

3EAF 

00850 

LD 

(HL), 175 

SPRINT ZU LPRINT 

7F9S 

3E00 

00880 NICHT 

LD 

A, 0 

5 NICHT UMWANDELN. SPEICHERAN 

FAND 

ERREICHT 

? 




7F9A 

BS 

00910 

CP 

C 

5 C-ZAEHLER 0 ERREICHT ? 

7F9B 

CAB47F 

00940 

JP 

Z, LI 

S NULL ERREICHT 

7F9E 

0D 

00970 

DEC 

C 

SC -1 

7F9F 

79 

01000 

LD 

A, C 

5 BASI CPRMANFANG ERREICHT? 

7FA0 

21A440 

01030 

LD 

HL, 16548 


7FA3 

5E 

01060 

LD 

D, (HL) 


7FA4 

BA 

01090 

CP 

D 


7FA5 

C2S07F 

01120 

JP 

NZ, ABFR 

5 NEIN 

7 FAS 

78 

01 150 

LD 

A, B 


7 FAS 

21A540 

01180 

LD 

HL, 16549 

- 

7FAC 

5E 

01210 

LD 

D, (HL) 


7FAD 

BA 

01240 

CP 

D 


7FAE 

C2S07F 

01270 

JP 

NZ, ABFR 

5NEIN 

7FB1 

C3C97F 

01300 

JP 

ENDE 

SANFANG ERREICHT 



01310 3C-ZAEHLER HAT 

NULL ERREICHT 

7FB4 

0EFF 

01330 LI 

LD 

C, 255 

S C-ZAEHLER WIEDER AUFLADEN 

7FB6 

05 

01360 

DEC 

B 

SB-ZAEHLER -1 

7FB7 

79 

01390 

LD 

A,C 

S BASI CPRMANFANG ERREICHT? 

7FBS 

21A440 

01420 

LD 

HL, 16548 


7FBB 

56 

01450 

LD 

D, (HL) 


7FBC 

BA 

01480 

CP 

D 


7FBD 

C2S07F 

01510 

JP 

NZ, ABFR 

5 NE IN 

7FC0 

78 

01540 

LD 

A, B 


7FC1 

21A540 

01570 

LD 

HL, 16549 


7FC4 

56 

01600 

LD 

D, (HL) 


7FC5 

BA 

01630 

CP 

D 


7FCS 

C2S07F 

01660 

JP 

NZ, ABFR' 

5 NEIN 

7FCS 

El 

01690 ENDE 

POP 

HL 

5 BASICPROGRAMMZE I GER ZURUECC 
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K HOLEN 






7FCA C9 

01720 


RET 

; ZURUECK 

7FCB 50 

01750 

TEXT 

DEFM 

’ PRINT TO LPRINT VERSION 

L SCHNEIDER 

1983"’ 




7F67 


01780 


END 

ANFNG 

00000 

TOTAL 

ERRORS 




335G3 

TEXT 

AREA BYTES LEFT 


ABFR 

7FS0 

00460 

01120 

01270 

01510 01660 

ANFNG 

7FE7 

00130 

01780 



BEGIN 

7F7S 

00280 

00130 



ENDE 

7FC3 

01690 

01300 



L. 1 

7FB4 

01330 

00940 



NICHT 

7F9S 

00880 

00580 

00700 

00790 

TEXT 

7FCB 

01750 

00190 




BASIC 
BY AXE 


SOLITAIR 

GENIE l + M 


Solitair ist ein bekanntes Brettspiel. Es wird 
auch als kleinere Ausführung unter dem Namen 
"Spring" verkauft. Die Spielregeln sind recht 
einfach: Du hast ein Brett mit vorgegebenen 
Löchern, in denen Kugeln liegen. Das Ziel eines 
jeden Spielers ist es, am Ende so wenig Kugeln 
als möglich übrig zu halten. Du darfst die Ku- 
geln nur waagrecht oder senkrecht überspringen, 
nie diagonal. Hast Du eine Kugel übersprungen, 
so wird sie herausgenommen. 

Das Programm setzt sich aus zwei Teilen zu- 
sammen: Als erstes gibt es ein Demonstrations- 
spiel, bei dem der Computer so spielt, daß am 
Schluß nur noch eine Kugel übrigbleibt - und die 
auch noch in der Mitte -. Im zweiten Teil des 
Programmes kannst Du selbst spielen. Du mußt 
dabei nur den Ausgangspunkt und den Zielpunkt 
der Kugel angeben, das Programm führt den 


Sprung aus und überprüft gleichzeitig seine 
Richtigkeit. Kannst Du keine Kugel mehr über- 
springen, so drücke die "A"-Taste. Nun erhält 
man eine Tabelle der besten 10 Ergebnisse. Gibt 
man seinen Namen ein, wird eine spezielle Ab- 
frageroutine aufgerufen, die nur Großbuchstaben 
und das Leerzeichen zur Eingabe zuläßt. Hat 
man sich verschrieben, so kann man mit " 
das letzte Zeichen löschen, drückst Du län- 
gere Zeit, so wird die ganze Zeile gelöscht. 
Drückst Du "Enter" oder gibst mehr als 20 Zei- 
len ein, so wird der Name der dazugehörigen 
Punktzahl gespeichert und es erscheint erneut 
das Anfangsbild. 

Am Anfang des Programms wird die Break-Ta- 
ste ausgepoked. 

Ralph Mermagen 


0 r (C) BY RALPH MERMAGEN 

1 ■ 5000 KOELN 40 UNTER GOTTES GNADEN 135 

40 POKE 1639t, 23 

41 ' * * POKE 16396,201 
50 CLEAR50O 

60 D IMA (75) 

70 Z*=CHR*(143> 

10O CLS: PRINTS 12, "4 * * SOLITAER * * 

1 1 0 Q=3 s F0RX= 1 4BT02 12STEP64 : Q=Q+ 1 0: F0RY=0T0 12STEP6: PR I NTSX+Y, Q : Q=Q+ 1 
: NEXTY : Q=INT (Q/ 10) * 10+3: NEXTX 

120 Q=30: FORX=264T0392STEP64: F0RY=0TD365TEP6: Q=Q+1 : PRINTSX+Y, Q; s NEXT 
Y:Q=INT(Q/10)*10+10:NEXTX 

130 Q=53:F0RX=468T05865TEP64:Q=Q+ 10: F0RY=0T012STEP6: PRINTSX+Y, Q; :Q=Q 

+ 1 : NEXTY: 0=1 NT (Q/10) *1 0+3 : NEXTX 

1 50 F0RX=3T05 : F0RY= 1 T07 :A(X+Y*10)=1: NEX TY , X 

160 F0RX=1T07:F0RY=3T05: A <X+Y*10> =1 : NEXTY, X 

170 F0RX=3T05: F0RY=6T07: A < X+Y* 10) =1 : NEXTY, X 

180 A (44) =2 

190 FDRX=13T075: IFA (X) < MTHENNEXT: G0TD21O 

200 AT=64+INT (X/10) *64+< ( X/10— INT (X/ 10) ) *10 ) *6+5: PRINTSAT, ZU; : NEXT 
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210 PRINT§710, "KUGELN: 11 ; 

220 K=31 

230 PRINT§838, "WOLLEN SIE DIE AUFLOESUNG (J/N) ?" 

240 A4=INKEY4: IFA4= ,, N ,, THENRE=0ELSEIFA4=‘' J"THENRE=1 : PRINTSQ38, "AUFLOE 
SUNG ! " ; CHR4 ( 30 ) ; : G0T0600ELSE240 
245 PRINTSS38, CHR4 (30) ; 

250 PRINT§838, "WIE WOLLEN SIE SETZEN ? ( A=AUFH0EREN) 

255 ’ DNERR0RG0T0260 

260 A4=INKEY4:PRINT§906, "VON — NACH — 

270 A4=INKEY4: IFA*=" "THEN270ELSEPRINT§91 1 , A4; : IFA4="A"THEN500ELSEZ1= 
VAL(A4) *10 

280 A4=INKEY4: IFA4=" "THEN280ELSEPRI NT§9 12, A4; : Z1=Z1+VAL (A4) 

285 PRINT§960,CHR4(31) ; 

290 A4= I NKEY4 ; I FA4= " " THEN290ELSEPR I NT §92 1 , A4 ; : Z2= VAL ( A4 ) * 1 0 

300 A4=INKEY4; IFA4=""THEN300ELSEPRINT§922, A4; : Z2=Z2+VAL ( A4) :PRINT§92 

5,"! 

310 PRINT5717, K; : IFABS ( ZI -Z2) =20THEN320ELSEIFABS ( Z1-Z2) =2THEN380 
315 PR I NT §960 , " UNGUELT I GER ZUG ! BITTE NOCH MAL ! ” ; : G0T0260 
320 IFA (ZI ) < >1DRA (Z2) < >20RA ( ( Z 1+Z2) /2) < MTHEN315 
330 PRINT§64+INT(Z1/10> *64+( (Z1/10-INT (Zl/10) )*10) *6+5, " " ; 

340 PRINT§64+INT(Z2/10)*64+( < Z2/10-INT ( Z2/10) ) * 10) *6+5, Z4; 

350 X= (Z1+Z2) /2; PRINTS64+INT (X/10) *64+ ( ( X/l Ö-INT ( X/ 10 ) ) *10) *6+5, " 

360 A(Z1>=2: A(Z2)=1: A( (Z1+Z2) /2) =2: K=K— 1 : IFRE=0THEN260ELSERETURN 

3 BO IFA ( ZI ) OIORA (Z2) < >20RA ( (ZI +Z2) /2) < >1THEN315 

390 PRINT§64+INT (Zl/10) *64+ ( ( ZI /I O-INT (Zl/10) )*10) *6+5, " 

400 PRINT§64+INT (Z2/10) *64+ ( (Z2/10-INT (Z2/10) ) *10)*6+5,Z4; 

410 X = ( Z1+Z2) /2 : PR INT §64+ INT ( X/ 10) *64+ ( ( X/ 10- INT ( X/ 10 ) )*lÖ)*6+5, " " ; 
420 A ( Z 1 > -2: A (Z2 ) =1 : A ( (Z1+Z2) /2) =2: K-K-l s IFRE=0THEN260ELSERETURN 
5Ö0 CL5: PRINTS20, "T HE TOP TEN " : PRINT§92, "0 F" : FRINT5150, "S 
O L I T A E R " : PRINTSTRING4 (64, 140) : 

510 Q=0: FQRX= , 260TQB36STEP64: Q=Q+1 : PRINTfX , Q; CHR4 (94 ) ; : IFK (Q-l ) >OTHEN 
PRINT“ " ; N4 (Q— 1 ) j " " ; K (Q-l ) ; : NEXTELSENEXT 

520 F0RX=0TQ9: IFK (X) CKANDK (X) < >OTHENNEXT: G0T0550 
530 F0RY=8T0XSTEP-1:K(Y+1)=K(Y) s N4 ( Y+l ) =N4 ( Y) :N£XTY 

532 F0RW=X+1T09: PRINT§266+W*64, CHR4 (30) ; s IFK ( W) =0THEN535ELSEPRINT§26 
6+W*64,N»(W) ; " "jK(W);:NEXT 

535 N4 (X) = " " s PRINT»X*64+266, CHR4 (30 ) 5 s A4=INKEY4: F0RZ=10T030 

540 I FPEEK ( 1 4400 ) * 1 THEN550ELSEI FPEEK ( 1 4337 ) =1 THENPR I NTS256+Z+ X*64 , “ 

: IFZ=10THEN540ELSEZ=Z-1:N4(X)=LEFT4<N4(X) ,Z-10> : G0T054OELSEPRINTSX 
«64+256+Z, Z4; i A4— INKEY4: IFA4=" § "THEN540 

545 IFA4=" " THENPRINTiX* 64+256+ Z , " "j : GDT0540ELSEIF ( ASC (A4) <650RASC ( A 
4) >90) ANDASC (A4) < >32THEN540ELSEPRINT§X*64+256+Z , A4; : N4 ( X) =N4 ( X) +A4i N 
EXT 

550 k(X)=»Ki GOTO 100 

600 RE ADZ lt IFZ 1 =1 OOTHEN6 1 0ELSEREADZ2 : G03UB3 10 : F0RHH=1 T0300: NE XT s GOTO 
600 

610 PR INT §832, "SO MACHT MAN DAS ! " ; CHR4 (30) j s F0RX=1 T02000S NEXTs G0T01 
00 

620 DATA64, 44, 56, 54, 75, 55, 73, 75,54,56,57, 55,45, 65,75, 55, 25, 45, 55, 35, 
47,45,45,25,37,35,25,45,23,25, 15,35, 13, 15,45,25, 15,35,43,23,35,33,23 
,43,31,33,43,23,63,43,51,53,53,33,41,43,44,42,23,43,42,44, 100 


Schreiben Sie Artikel 
fZr GEN IE DATA* 


NEU -NEU 


Alles für die GENIE’s 


NEU -NEU 




Rekordersteuerung f. Colour-Genie 

Ein- u. Ausschalten über den Computer mit: 
CLOAD, CSAVE, SYSTEM, INPUT u. PRINT 
Mit LED-Anzeige, nur auf den BUS stecken. 

69,- DM 




Druckerinterface - Bausatz 
incl. Gehäuse, Im Kabel, Stecker usw. 
Gleichzeitiger Anschluß von Drucker 
und Joysticks möglich, 
i 79,- DM 


Abbildung zeigt tenigen Autbau 


fSÜll 




Damit man sieht und hört, was das Colour-GENIE kann: 

TV-Farbportable 

36 cm, mit ausgezeichneter Farbwiedergabe für Fernsehen u. 
Programmieren. 8 Stationstasten. 650,- DM 

TV-Farbportable 

wie obiges Gerät, jedoch mit Video-Eingang für Farbe und 
Ton. Sicherheit durch Trenntrafo. Bestmöglichste Bildschärfe, 
Farbe- u. Tonqualität. 895,- DM 

Praktisches Arbeiten mit Dateien 

von C.D. Holfmann. Deutsche Anleitung zum Praktischen Ar- 
beiten mit den Marked- u. Fixed- Item -Dateien. Aus dem Inhalt: 
MU-, MF-, Ml-, FF- u. Fl-Dateien, Wie eröffnet u. wie schließt 
man die Dateien? Schreiben u. Lesen von Dateien usw., mit Bei- 
spielen 45,- DM 

G -GRAFIK - das einmalige Grafik-Editier-System 
für hochauflösende Druckgrafik, Kreise, Linien, Handschriften, 
auf dem Bildschirm zeichnen u. ausdrucken (Diskette) 145,- DM 
Infarmall einen gegen DM 1 .30 Rückporto. Lieferung solange Vorrat, gegen Nachnahme o 


, i Drucker- Interface für GENIE l/ll 
f | mit herausgeführtem BUS - für Anschluß 
von weiteren Geräten wie z.B. RTTY-CW- 
Interface oder Port-Steuerung. 

195,- DM 

Demnächst lieferbar: Speichererweiterung für 
ältere GENIES auf 64K in obigem Drucker- Inter- 
face 198,- DM 

sv Disketten-Station FC 

y'<ir:S. 1 Laufwerk 40 Spuren, 5 Vn", Double Den- 
sity, mit Netzteil, Floppy-Controller und 
Drucker-Interface, vorbereitet für 2. Lauf- 
werk. Betriebssystem G-DOS im Liefer- 
umfang. 1.495p- DM 


SONDERANGEBOT 

Sonderposten, solange Vorrat reicht 
40 Spur-Laufwerk, 5 VV, Siemens, mit Garantie 

559,- DM 

sj SANYO-Monitore 

12" (31 cm), gestochen scharfe Text- und 
Grafikdarstellung durch 15 MHz Bandbreite 
und Anti -Reflex-Ätzung. 

DM 21 12, grün 298,- DM 

«aar 1 ' DM 2212, orange 325,- DM 

GRAPE 2.0 

dreidimensionales, konstruktives Zeichnen, 

Plotterbetrieb möglich, fantastische Möglich- 

keilen. Mit Handbuch 195,- DM ^**=*^1^ 

Vorkasso + Porto Matrixdrucker DP 51 0 1 .195,- DM 



SOFTWARE FÜR COLOUR GENIE 

PAC-LAB I 

Hier handelt es sich um ein wirklich faszinierendes Spiel. Sie steuern Emilie durch ein 
Labyrinth. Aber leider werden Sie von hungrigen Gespenstern verfolgt, die Sie liebend 
gerne fressen würden. Was bleibt Ihnen anderes als die Flucht? Aber probieren Sie 
trotzdem beim Flüchten soviele Punkte wie möglich zu machen. 

Bestell-Nr. 20 Nur 39,— DM 

PAC-LAB II 

Hier wurde der bekannte Pac-Lab noch verbessert! Das Labyrinth wurde vergrössert 
und, und, und, 

> Bestell-Nr. 21 Nur 49,— DM 

VIER GEWINNT 

Das bekannte Strategie-Spiel jetzt auch auf Ihrem Colour Genie, mit ansprechender 
Grafik und tollem Sound, in Farbe und wahnsinnig schnell. Mit diesem Programm wird 
Ihr Computer zu einem sehr starken Gegner! 

Bestell-Nr. 22 Nur 25,— DM 


> RALF M. HÜBBEN < 

> VERLAG FÜR COMPUTERTECHNIK < 
> D-5429 MARIENFELS < 
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HARDWARE 


TONERZEUGUNG 

BEIM VIDEO GENIE 


Daß man beim Video Genie in Basic mit dem 
OUT-Befehl bzw. in Maschinensprache über Port 
255 einen Ton erzeugen kann, indem man den 
Strom ein- und ausschaltet, ist inzwischen all- 
gemein bekannt. 

So manch ein Besitzer des alten Genie-Modells 
'80 oder ’81 wird sich allerdings schon darüber 
geärgert haben, daß er mit seinem Gerät diesen 
Ton nicht hörbar machen kann. 

Mit einem kleinen Hardwareumbau (es werden 
lediglich ein Lötkolben, isolierter Draht und et- 
was Erfahrung im Loten benötigt) läßt sich nun 
dieser Nachteil beseitigen, und man kann den 
erzeugten Ton hinten an der Cassettenrecorder- 
buchse abgreifen. Für die Ein-und Ausgangssig- 
nalsteuerung sind im Computer zwei Relais auf 
der Interfaceplatine (siehe Grafik) zuständig. 

Relais 1 versorgt im aktivierten Zustand den in- 
ternen Cassettenrecorder mit Strom und legt 
die Eingangssignalleitung, die im inaktiven Zu- 
stand des Relais an der Buchse liegt, an-^den 
Recorder. Relais 2 wird nur dann aktiviert, 
wenn ein zweiter externer Cassettenrecorder 
angesprochen wird. Es steuert den Motor dieses 
Recorders (Remote) und legt die Ausgangssig- 


nalleitung, welche zuerst am internen Recorder 
lag, an die Cassettenrecorderbuchse. 
Wünschenswert wäre es aber, wenn im inaktiven 
Zustand beider Relais die Ausgangssignalleitung 
an der Buchse liegen würde, um einen eventuell 
vorhandenen Ton abzugreifen. Dies erreicht man 
nur dadurch, daß man alle Ausgangssignalan- 
schlüsse an Relais 2 mit den Eingangssignalan- 
schlüssen von Relais 1 vertauscht. Jetzt liegt 
die Ausgangssignalleitung nur im aktiven Zu- 
stand von Relais 1 am Recorder, ansonsten aber 
an der Buchse. Das hört sich zwar alles kompli- 
ziert an, ist aber in der Praxis, wie wir gleich 
sehen werden, ganz einfach. 

Zuerst wird der obere Gehäuseteil vom Compu- 
ter entfernt, die Tastatur-Platine wird abge- 
schraubt und zur Seite gedreht, um die Interfa- 
ce-Platine und die CPU-Platine freizuiegen. 
Jetzt werden die beiden Verbindungsstecker 
zwischen CPU- und Interface-Platine gelöst, 
wobei man aber sehr vorsichtig Vorgehen muß, 
da die Anschlüsse leicht verbiegen oder abbre- 
chen. Darauf wird auch die Interface-Platine 
abgeschraubt und die Leiterbahnen rechts oben 
in der Ecke werden an den 6 auf der Grafik 
markierten Punkten aufgetrennt. 



RI - Relais 1 
R2 - Relais 2 

Leiterbahn auf der Vorderseite) . p , . . 

Leiterbahn auf der Rückseite J 

-U — Trennungsstelle auf der Leiterbahn 

1 - Ausgangssignalleitung 

2 - Ausgang Recorder 

3 - Ausgang Buchse 

k - Eingangssignalleitung 

5 - Eingang Recorder 

6 - Eingang Buchse 
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Alle 12 Lötpunkte befinden sich auf der Rück- 
seite der Platine. Die Grafik zeigt den rechten 
oberen Ausschnitt der Interface-Platine des 
Video Genies in stark vereinfachter Form, um 
übersichtlicher zu wirken. 

Nun verbindet man jeweils die Punkte mit der- 
selben Nummer mit einem isolierten Draht und 
baut dann das ganze Gerät wieder zusammen. 


Beim Umbau ist natürlich darauf zu achten, daß 
der Netzstecker herausgezogen und das Netzteil 
abgekühlt ist! 

Nach dem Zusammenbau muß man nur noch die 
Cassettenrecorderbuchse mit einem Verstärker 
(Stereoanlage etc.) verbinden, und man erhält 
einen Ton, der an Qualität und Lautstärke 
nichts zu wünschen übrig läßt. 

Martin Aschoff 


JAHR: 1983 
MONATs JULI 


MON. 


4 

11 

18 

25 

DIE. 


5 

12 

19 

26 

MIT. 


6 

13 

20 

27 

DON. 


7 

14 

21 

28 

FR. 

1 

8 

15 

22 

29 

SAM. 

2 

9 

16 

23 

30 

SON 

3 

10 

17 

24 

31 


<ENTER>? 


KALENDER 

GENIE l + ll 


1 ' (C) BY RALPH MERMAGEN 

2 ’ 5000 KOELN 40 UNTER GOTTES GNADEN 135 
100 CLS 

110 PRINT" KALENDER 

120 PRINT: PRINT" WELCHES JAHR (1801 BIS 2099) 

125 INPUT J 

127 I F J < 1 80 1 OR J >20990RJ - 1 NT ( J ) < >OTHEN 1 25 
130 PRINT: PRINT"WELCHEN MONAT 
135 INPUTM 

1 37 I FM< 1 ORM > 1 20RM- 1 NT ( M ) < >0THEN1 35 

200 R=0: I FM= 1 0RM=30RM=50RM=70RM=8QRM= 1 00RM= 1 2THENR=3 1 
210 I FM< >2ANDR=0THENR=30 

220 I FM=2THEN IF ( J /4-I NT ( J /4 ) ) =0AND ( J/ 1 00- I NT ( J/ 1 00 ) ) < >0THENR=28ELSER 
=29 

230 IFR=29AND ( J/ 400— INT ( J/400) >=0THENR=28 
240 GDSUB200O: G0SUB2200 
250 CLS 

260 PRINT”- KALENDER 

270 PRINT : PRINT" JAHR: J 
280 PRINT-MONAT: ";M* 

290 PRINT§320, "MON. :PRINT§384, "DIE. :PRINT§448, "MIT. " ; : PRINTS512, 
"DON. " ; : PR1NTS576, "FR. " ; : PRINTS640, "SAM. " ; : PRINTS704, "SON"; 

300 A=325+ (Q— 1 ) *64 
310 F0RX=1T0R 
320 PRINTSA, X; 

330 A=A+64: IFA>760THENA=A— 7*64+5 
340 NEXT 

350 PRINT5B96, : INPUT"< ENTER>" ; AA*: G0T0100 

2000 G= 1 : F= 1 : H= 1 BO 1 : G0SUB2 100: K=D: G=M: F=1 : H=J : G0SUB21 00 : A ( 1 ) =D-K s Q=A 
( 1) /7: T=INT (Q) : Q=Q-T: Q=Q*100: Q=INT (Q> : Q=Q/7: Q=INT (Q) 

2010 Q=(Q+2) /2:Q=Q+2: IFQ>7THENQ=0-7 
2020 RETURN 


2100 D= (H*365> +F: L=G: IFG<=2THEN2120ELSEL= CL*. 4) +2. 3: L=INT (L) : D=D-L: H 
=H+1 
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2120 

2140 

2200 

320 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2350 


G»< (G*31)+(H-1) /4) :G=INT(G) : D=D+Ga IFH=1900THEND»D+1 
RETURN 

0NMG0TG22 10, 2220, 2230, 2240, 2250, 2260, 2270, 22B0, 2290, 2300, 2310, 2 


M*= " JANUAR " : G0T02350 
M$=" FEBRUAR" : GDTO2350 
M*="MAERZ" : GDTU2350 
Mt="AFR3L" : G0TG235Q 
M*= "MA I " : GDTG2350 
M$=" JUNI " : G0T02350 
M$=" JULI " : G0T02350 
M$=" AUGUST" : G0T02350 
M*=" SEPTEMBER" : G0T02350 
OKTOBER" : G0T02350 
M*="NOVEMBER" : G0T02350 
M*=" DEZEMBER " 

RETURN 


Kalender ist ein einfaches Rechenprogramm. Du 
mußt das gewünschte Jahr und den Monat ein- 
geben, worauf ein Kalenderausdruck für diesen 
Zeitraum errechnet wird. Dabei läßt das Pro- 
gramm keine falschen Eingaben zu. 

Ralph Mermagen 
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Dieser Artikel soll zeigen, wie man unter Zu- 
hilfenahme der für DI5K-BA5IC reservierten 
Wörter den L-1I BASIC Befehlsatz erweitern 
kann. Als Benutzer des L-II BASIC's hat man 
28 reservierte Wörter zur freien Verfügung 
(siehe Tabelle). Bis auf "NAME" werden alle 
vom DISK-BASIC benutzt. Die Benutzung die- 
ser Befehle erfolgt auf die gleiche Art, wie bei 
der USR (X) Funktion. Die Funktionsweise soll 
anhand der CVI (X) Funktion erklärt werden: 
Bei Eingabe von CVI (X) wird die Adresse 
16722 vom BASIC angesprungen. Gewöhnlich 
steht dort C3 2D Ol, was dem Assemblercode 
JP 012D entspricht. Diese Befehlsfolge läßt 
das BASIC zur Adresse 301 (dezimal) springen. 
Dies ist die Ansprungadresse für den L-3 
ERROR. Bei allen 28 reservierten Anweisungen 
und Befehlen steht diese Befehlsfolge. Da sich 
diese Adressen aber im RAM befinden, lassen 
sie sich ohne weiteres verändern. Wenn man in 
die Adressen 16723 und 16724 die Ansprungad- 
resse einer Maschinenspracheroutine poked, hat 
man eine neue Funktion zur Verfügung. Un- 
gläubige können sich anhand eines kleinen 
BASIC-Beispielprogrammes selber überzeugen: 
10 For C = 16446 TO 16474 : READ D : 
POKF C n • NF VT C 

20 DATA 205, 127, 10, 62, 1, 14, 0, 237, 91, 
61, 64, 69 

30 DATA 47, 230, 3, 179, 211, 255, 13, 40, 4, 
16, 246, 24 

40 DATA 242, 37, 32, 241, 201 
50 POKE 16723, 62 : POKE 16724, 64 
60 NEW 


Nach Eingabe von RUN, wird in Zeile 10 ein 
kleines Maschinensprache-Programm zur Toner- 
zeugung in den Bereich von 16446 bis 16474 
gepocked. ln Zeile 50 wird die Sprungadresse 
der CVI-Funktion verändert. Mit der CVI-Funk- 
tion können jetzt Töne beliebiger Länge und 
Höhe erzeugt werden. Biespiel: 

10 For X = 4900 TO 5150 STEP 10 : A = CVI 
(X) : NEXT X 

Der Rücksprung von Maschinenspracheroutinen 
muß mit einem "RET" erfolgen. Bei Maschinen- 
spracheroutinen, die das Registerpaar HL ver- 
wenden, muß der Inhalt dieses Paares vor dem 
Rücksprung wieder zurückgeladen werden, da 
HL der BASIC-Programmzähler ist. 

Er enthält die augenblickliche Adresse im 
BASIC-Programm. Dieses kann durch ein einfa- 
ches PUSH HL am Anfang und durch ein POP 
HL am Ende der Maschinenspracheroutine er- 
reicht werden. Die Übergabe von Werten an 
die Routine ist durch einen ROM-Call erreich- 
bar. Der Wert wird an das HL Registerpaar 
übergeben. 

CALL OA7FH 

In der nachfolgenden Tabelle sind alle reser- 
vierten Wörter auf gelistet. Ein F bedeutet, daß 
es den Syntax einer Funktion hat (z. B. A = 
CVI(X)). 

Ein B bedeutet, daß es den Syntax eines Be- 
fehls hat (z. B. NAME 300). 

Tabelle: 

16722 - 16724 CVI / F 
16725 - 16727 FN / F 
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16728 - 

16730 CVS 

/ F 

16755 - 

16757 CMD / B 

16782 

- 16784 NAME / B 

16731 - 

16733 DEF 

/ B 

16758 - 

16760 TIME§ / F 

16785 

- 16787 KILL 

/ B 

16734 - 

16736 CVD 

/ F 

16761 - 

16763 OPEN / B 

16788 

- 16790 & 

/ F 

16737 - 

16739 EOF 

/ F 

16764 - 

16766 FIELD / B 

16791 

- 16793 LSET 

/ B 

16740 - 

16742 LOC 

/ F 

16767 - 

16769 GET / F 

16794 

- 16796 REST 

/ B 

16743 - 

16745 LOF 

/ F 

16770 - 

16772 PUT / B 

16797- 

• 16799 INSTR / F 

16746 - 

16748 MKI§ 

/ F 

16773 - 

16775 CLOSE / B 

16800 

- 16802 SAVE 

/ B 

16749 - 

16751 MKS§ 

/ F 

16776 - 

16778 LOAD / B 

16803 

- 16805 LINE 

/ B 

16752 - 

16754 MKD§ 

/ F 

16779 - 

16781 MERGE / B 
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Normalerweise ist es nicht möglich, Programme 
durch Hintereinanderladen miteinander zu ver- 
ketten, da der Video Genie bei jedem 
CLOAD-Befehl gleichzeitig ein NEW ausführt 
und damit das alte Programm löscht. Dieses 
Problem kann mit Hilfe einiger POKE's besei- 
tigt werden. 

Intern speichert der Computer den Programm- 
text in folgender Form ab: Gewöhnlich beginnt 
der Programmtext ab Speicherzelle 17129 und 
wird von zwei Nullbytes, die das Programmende 
signalisieren, beendet. Hierauf schließt sich die 
Variablentabelle an, deren Anfangsadresse ab- 
züglich zwei (um die beiden Nullbytes, die das 
Programmende anzeigen zu überschreiben) in 
1 6548/16549 (Programmtextpointer) ab, so igno- 
riert der Computer das Programm, welches sich 
momentan im Arbeitsspeicher befindet, da der 
Program mtextpointer jetzt auf das Programm- 
ende zeigt. 

Geben Sie folgendes im Direktmodus ein: 

X=PEEK(16634)*256+PEEK(16633)-2:POKE16549,X 

/256:POKE16548,X-INT(X/256)*256 


Das Programm läßt sich nun nicht mehr listen 
und scheint verschwunden zu sein. Jetzt kann 
ein neues Programm von Cassette geladen wer- 
den und falls erforderlich, nach erneuter Einga- 
be der oben angegebenen Zeile, noch ein Pro- 
gramm, usw. 

Danach wird die Manipulation wieder rückgängig 
gemacht, indem man in Speicherzelle 
16548/16549 den alten, vom Basic-Interpreter 
vorgesehenen Wert (17129) wieder einschreibt: 
POKE16548,233:POKE16549,66 
Jetzt lassen sich alle Programme hintereinander 
listen. Es muß allerdings darauf geachtet wer- 
den, daß sich die Zeilennummern der verschie- 
denen Programme nicht überschneiden. Außer- 
dem müssen die Zeilennummern (z. B. mit 
RENUM) so geändert werden, daß die Zeilen- 
nummern eines zu ladenden Programmes alle- 
samt höher sind, als die Nummern des vorherge- 
henden Programmes, da sonst diese Zeilen beim 
Editieren und bei Programmsprüngen vom Inter- 
preter nicht beachtet werden. 

Martin Aschoff 



’BATTLE OF SARPEDIUM' ist ein Invaderspiel 
mit Ton und Grafik. Ziel ist es, die zufällig 
verteilt entstehende 'ALIENS' zu vernichten, 
die versuchen, Ihre Basis mit Laserkanonen zu 
zerstören oder auf Ihre Ebene herabzukommen. 
In beiden Fällen verlieren Sie eine Ihrer ur- 
sprünglichen 3 Basen. Das Spiel ist beendet, 
wenn Sie keine weitere Basis zur Verfügung ha- 
ben. 


Die Geschwindigkeit mit der die Gegner entste- 
hen und angreifen wird im Laufe des Spiels 
langsam gesteigert, so daß sich der Schwierig- 
keitsgrad ständig erhöht. Angreifer die im ober- 
en Teil des Bildschirmes getroffen werden er^.-;,. ; 
zielen 30 Punkte, werden sie im unteren Bild- 
schirmteil getroffen, erzielen sie 60 Punkte. 
Wird ein neuer HIGH-SCORE aufgestellt wird 
dieser registriert und angezeigt. Zum Bewegen 
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DER PREISDRUCKER 
WL _ DP 510™ 


TECHNISCHE DATEN inkl. MWSt. A 

* 9 Nadel Druckkopf ’ 

* 100 Zeichen/sec., bidirektional 

* Einzelnadelansteuerung und somit 
hochauflösende Grafik möglich ! ! 

* Weit über 50 Schriftarten und Breiten < 

* Centronics Parallel Schnittstelle serienmäOig 

* RS 232C/20mA current Loop gegen Aufpreis 
ab Lager lieferbar (+ 195, — DM) 

* Einzelblatteinzug, Pinfeed für Endlospapier 

sowie Halterung für Rollenpapier im 
Lieferumfang 1 

* »> SONDERPROSPEKT ANFORDERN «< A 


SCHMIDTKE 


] electronic 

Büro- und Personalcomputer 

Sandkoulstraße 84 - Telefon: 0241 -232 17 

5100 AACHEN 

10.00 - 13.00 Uhr 
14.10 - 18.30 Uhr 
10.00 - 14.30 Uhr 
donnerstags geschlossen 


der Basis und zum Schießen werden die Pfeilta- 6C0FH. Ansprungadresse ist 60 H. Nach eintip- 
sten benutzt. Während des Spieles kann jeder- pen des HEX-Listings kann es mit einem Moni- 
zeit durch drücken der (BREAK) Taste abgebro- tor mit diesen Angaben auf Kassette abgespei- 
chen, durch drücken der (CLEAR) Tasten ein chert werden, 
neues Spiel angefangen werden. Das Spiel lädt Viel Spassü! 

in den Speicher im Bereich von 6000H bis Rainer Schmies 
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Jetzt ist es endlich da 


COLOUR 

GENIE 


SCHACH 



Das stärkste Schachprogramm der Welt für Colour Genie! Erstellt von Gerhard W. 
Wolf im Alleinvertrieb von Ralf M. Hübben, Verlag für Computertechnik. 

Mit diesem Schachprogramm zeigt Ihr Colour Genie was es alles kann! 

Colour Genie Schach bietet ihnen unter anderem: 

- Sieben Schwierigkeits-Stufen. Das heißt: Unser Schachprogramm ist ge- 
eignet für Anfänger, die sich in die Kunst des Schachspiels noch ein- 
finden wollen, und für fortgeschrittene Spieler. Colour Genie Schach ist 
Ihnen ein guter Schachlehrer und Spielpartner. 

- Die Problem-Stufe: 

Wenn Sie diese Funktion wählen, löst Ihr Colour Genie Ihnen auch die 
schwierigsten Schachprobleme. 

- Bei Colour Genie Schach können Sie frei wählen, welche Farbe Sie 
spielen möchten. 

Colour Genie Schach erkennt nur Züge an, die den Schachregeln ent- 
sprechen, aus diesem Grund ist cs auch für Spieler, die die Regeln des 
Schach noch nicht genau kennen, bestens geeignet. 

Colour Genie Schach macht Ihnen auf Wunsch Zugvorschläge, die Sie an^ 
nehmen oder ablehnen können. 

Colour Genie Schach bietet noch soviele weitere Vorteile, daß es uns 
nicht möglich ist, sie hier alle zu erwähnen, z. B. Darstellung des 
Schach-Brettes auf dem Bildschirm, Anzeige des momentan besten Zuges, 
und, und, und, 

Gibt es da eigentlich noch etwas zu Überlegen? Nein !!!! 

Bestellen Sie sofort Ihre Cassette mit Colour Genie Schach! Denn: Colour Genie 
Schach bietet Ihnen ein unschlagbares Preis-Leistungs-Verhältnis ! 

BESTELL-NR. vj ZUM SAGENHAFTEN SUPERPREIS VON NUR 59,- DM 

»> JEDER DER EIN ANDERES SCHACHPROGRAMM KAUFT, «< 

»> IST ES SELBST SCHULD! «< 
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SOFTWARE 


Sdtreiben Sie Arttkei 

fir GENIE DATA ! 

Wir sind immer daran interessiert, gute Artikel zu veröffentlichen, seien es Programm-Listings, 
Hardware-Erweiterungen, Testberichte oder andere interessante Sachen, die Sie an Ihrem Compu- 
ter entdeckt haben. 

Wir gehen selbstverständlich davon aus, daß die eingesandten Manuskripte Ihr geistiges Eigentum 
sind und das Sie sich mit einer Veröffentlichung in der GENIE DATA einverstanden zeigen. 

Wir spielen nicht mit verdeckten Karten und sagen Ihnen deshalb klipp und klar: 

Pro veröffentlichter Druckseite zahlen wir Ihnen 
ein Honorar von 50,— DM. 

EIN ANGEBOT, DAS SICH SEHEN LASSEN KANN! 


Darum: 

Schreiben Sie alle Ihre Erfahrungen, Entdeckungen und Entwicklungen auf und schicken sie uns! 
Bei Hardware-Erweiterungen benötigen wir ausser Ihrem Artikel auch eine Musterschaltung 
und/oder Platine, um Fotografien zu erstellen und Ihre Arbeit zu testen. Selbstverständlich er- 
halten Sie diese Muster wieder zurück. 

Richten Sie Ihre Einsendungen an folgende Adresse: 

Fa. 

RALF M. HÜBBEN 
Verlag für Computertechnik 
Mühlbachstraße 2 

5429 Marienfels 
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16K RAMVbVi 

Z80 CPU, 2.2 Mhz, 16K ROM, 16K RAM, Microsoft 
Level II Basic, 160x96 Einze.lpunkte, Grafik 
( bis zu 320x192 Punkte, 16 Farben, 

'3 Tongeneratoren mit je 8 Oktaven, Rausch- 
generator, etci 


SCHMIDTKE 

electronic 

SandkaulstraQe 84 
5100 AACHEN 
Tel. 0241-23217 

Mo. -Fr. 10.00 - 13.00 Uhr 
14.30 - 17.30 Uhr 
5a. 10.00 - 14.30 Uhr 
donnerstags geschlossen 



ZUBEHÖR : a o\0^'" 

EG 2011 16K-RAM Erweiterung Steckmodul 165, — DM 
EG 2012 Druckeranschlußkabel mit Stecker 

und Paralell-Port Konverter 98, — DM 

EG 2013 JOYSTICK (2 Stück Set mit Num- 

meric PAD in BOX. Echte Ausgabe A 

der eingestellten Koordinaten.) 245, — Dtv 
EG 2016 Passender Cassettenrecorder mit 

. Bandzählwerk 125, — DM 

EG 2050 Datenmonitor 12", grün, 15 Mhz 295,— DM 

Schaltplansammlung für Colour Genie 15, — DM 

20 pol. Steckerleiste für Parallelport 24,50 DM 


EG 2016 


DM 

DM 

dm 

1,50 DM 


SOFTWARE : 

Kennung Progrm 


Einzel-Praia' ' 


u noi 

Plotter 

39,— 

W 

SA 025 

Hektik 

39, CH 

u 002 

Colour C3HP 

69,— 

DH 

V 026 

OemoprGQrainff. 

25,— CH 

U 003 

BASICDDt IM! 

.25,—' 

'S! 

• S 027 

Colour SCHACH 

65,— CH 

U D06 

Colour MOHITOR 

39,— 

S 028 

Cxrimrc itf 

25,- DH 

u oat* 

Editor-fawenülor 

69,- 

DH 

U 029 

Grafik - Editor 

69,- DH 

U 036 

Colour Text ln Vorbereitung » 

V 030 

Mau&i *' 

25,— DH 

IJ 007 

Sound Cditor 

25,— 


U 031 

Sliopor 

25,— DH 

U 008 

Zeichen Editor 

25,— 

DM' AV5 032 

rnueendfuQ 

39,— DH 

A 009 

Invasion 

39,— 

DH 

AVS 033 

PAC - LAß (Pac-Han; 

39, _ DK J 

A 010 

Purktejegd 

39,— 

OH 

S 034 

Kinge (König) 

25,- DH 

A OH 

Wut« 

39,— 

DH 

A 035 

Mnrpf - Kon 

39,— DM 

A*012 

Rreek Cut 

39,— 

DH 

S 036 

Dan« 

25,- CH 

5 013 

Lnbyrlnth 

19,— 

DH 

S 037 

OIhMu (fievni'Hi) 

25,— OH 

S 014 

Zäuhnrmir Tel 

25,— 

DH 

VS 036 

Sqielesanrlunq 

25,— OM 

S 013 

Heeter Kind 

25,- 

ÜN 

U 039 

Mini - Text 

90,- OH 

V 016 

Orqel 

39,— 

DH 

V 040 

Abnnlouor im Schloß 

69,- OH 

VS Ql 7 


39,— 

DM 

AV 061 

Colour - MJNÜ 

39,— DH 

S 0)8 

Maximilian 

64,— 

OM 

U 042 

COLROT 

69,- OH 

UV 019 

Design 

25,-- 

OM 

A‘063 

Penzorkanpf (32K) 

69,- CH 

A 020 

Andromeda 

39,- 

CM 

SA 044 

EIS 

>9,— CH 

A 021 

Meteor 

69,- 

DH 

A 045 

EAGLE 

39,- CH 

A 02Z 

Motten 

39,— 

DH 

V 066 

Gerne of Life 

25,— OH, 

A5*023 

Panik 

39,— 

OH 

AVS 048 

Pac-Leb 11 

49,- DH 

SV 024 

Hau-Pau 

25,— 

DH 

U 049 

SynthaHlzer 

69,- OH 


^ - 
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> 
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22 
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W& 
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> 
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> 
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31 

> 
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> 
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> 
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34 

> 
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> 
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> 

A6 

37 

> 

A7 

38 

> 

A8 

39 

> 

A9 

40 

> 

A10 


Nicht nur in Genie Computern und im TRS 80 
sitzt als Mikroprozessor ein Z80. Der Z80 ist 
einer der am häufigsten verwendeten Mikropro- 
zessoren auf der Welt. Was liegt also näher, 
als Ihnen einmal etwas über ihn zu berichten? 
Wie Sie sehen, hat der Z80 vierzig Beinchen, in 
der Fachsprache . Pin's genannt. Wenn man im 
Wörterbuch nachschaut, findet man unter Pin 
das Wort Nadel und in der Tat sehen ja die 
Anschlußstifte fast aus wie Nadeln. Übrigens 
nennt man die Stifte nicht nur beim Z80 Pin, 
sondern bei allen IC’s. (IC = Integrated Circuit 
= Integrierter Schaltkreis.) 

Wir haben die einzelnen Pin's idgrchnumme- 
riert.um Ihnen das Auffinden zu erleichtern. 
Nun aber zur Belegung: 


A0 - A15 

Uber die Pin's A0 - A15 werden die Adressen, 
die der Z80 ansprechen möchte, gekennzeich- 
net, Und zwar folgendermaßen: 

Nehmen wir an, der Prozessor möchte aus dem 
Speicher mit der Adresse 4 einen Wert lesen. 
Er geht dann mit allen Pin's auf 0 Volt Span- 
nung (low), nur Pin A3 bleibt hoch. Wenn wir 
das nun in duale Schreibweise umwandeln, be- 
deutet eine Eins an dritter Stelle von links de- 
zimal 4. Und damit haben wir auch schon die 
gewünschte Adresse. Weiterhin können wir da- 
ran sehen, daß er in der Lage ist 64K Speicher 
direkt zu adressieren. 

Anmerkung: Bei manchen I/O Operationen gel- 
ten nur die unteren 8 Bit's als Adresse, woge- 
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gen die anderen 8 Bit's den Inhalt des Akkumu- 
lators enthalten. 

DO - D7 

Das sind die Datenleitungen des Z80 Prozes- 
sors. Uber diese acht Leitungen sendet oder 
emfängt der Prozessor Daten. (Datenbus). 

Pin 16 - INT (Interrupt) 

Nach dem Beenden eines laufenden Befehls, 
nimmt der Z80 über dieses Pin einen Interrupt 
(Unterbrechung) an, sofern das interne Inter- 
ruptenable (Unterbrechungsfreigabe)-Register 
ein ist und kein BUSRQ (bus request/siehe un- 
ten) vorliegt. Bei einem Befehl, der sehr viele 
Maschinenzyklen lang ist, wird ein Interrupt 
auch während der Ausführung dieses Befehles - 
z. B. Blocktransfer - angenommen. 

Pin 17 - NMl" (Non maskable Interrupt) 

Ein NMt (Nicht maskierbare Unterbrechung) ist 
der mächtigste unter den Interrupt’s. Er wird 
am Ende eines Befehls immer angenommen und 
veranlaßt den Z80 zu ein em Spru ng a uf die 
Speicherze lle 6 6H. Nur ein BUSRQ oder WAIT 
kann den NMI davon abhalten, sofort wirksam 
zu werden. 

Pin 18 - Hält 

Der Z80 wird hierdurch gestoppt, das heißt, er 
führt während eines Halts ständig NOP's aus, 
so daß der Refresh für dynamische RAM's 
trotzdem korrekt ausgeführt wird. 

Pin 19 - MREQ (Memory Request/Speicher Be- 
darf) 

MREQ zeigt an, daß an den Adreß-Leitungen 
AO - A15 eine gültige Adresse ansteht. 

Pin 20 - IORQ (Input/Output Request/ Einga- 
be/Ausgabe Bedarf) 

Hiermit zeigt der Prozessor an, daß an der un- 
teren Hälfte des Adreßbuses eine gültige Ad- 
resse für eine I/O - Operation anliegt. 

Pin 21 - Kd" (Read/Lesen) 

Der Z80 zeigt an, daß er Daten vom Speicher 
oder einem Peripherie-Gerät erwartet. 

Pin 22 - WR (Write/Schreiben) 

Mit WR teilt der Prozessor mit, daß er Daten, 
die am Datenbus anliegen in den Speicher 
schreiben oder einem Peripherie-Gerät überge- 
ben möchte. 

Pin 23 - BUSAK (Bus Aktiv) 

Hiermit zeigt der Z80 an, daß ein BUSRQ kor- 
rekt erledigt wurde. 

Pin 24 - WÄTT (Warte) 

Dem Prozessor wird durch WKTT angegeben, 
daß ein Speicher oder Peripherie-Gerät Daten 
noch nicht verarbeitet hat oder D aten n och 
nicht bereitgestellt wurden. Während WAIT .ak- 


tiv ist erfolgt kein Refresh. 

Pin 2-5 -BUSRQ (Bus Request/Bus Anforderung) 
Durch BUSRQ wird vom Prozessor verlangt, 
nach Beendigung des momentanen Zyklus, sei- 
nen Daten-, Adreß- und Steuerbus in einen 
TRI-State Zustand zu überführen. 

Pin 26 - RES ET (Zur ücksetzen) 

Nach einem RESET wird der Programm-Coun- 
ter (Programm-Zähler) auf Null gesetzt, d. h., 
ein Programm ab Adresse Null wird gestartet. 
Außerdem w erden interne Register so geschal- 
tet, daß das InT- V erhalten wie beim 8080 Pro- 
zessor ist. 

Pin 27 - RFSH (Refresh/ Auffrischen) 

Auf AO - A6 liegt eine 7Bit lange Refresh Ad- 
resse für dynamische RAM's. A 7 ist nicht ver- 
wendet und A8 - A15 zeigen den Inhalt von I 
(Interruptregister). 

Pin 6 - Clock {Taktfrequenz) 

Takteingang (TTL-kompatibel). 

Zum Schluß zeigen wir Ihnen noch den Regi- 
stersatz des Z80 (Bild 1) und den Aufbau des 
Flag-Registers F (Bild 2). 


BILD 1 


A 

F 

B 

C 

D 

E 

H 

L 



BILD2 


S 

Z 

X 

H 

X 

PV 

N 






54 GENIE 111 SOFTWARE 

KLEINANZEIGEN 


Alles für den Genie I - preiswert - schnell 
von M. Schuster 

St. Pöltenerstr. 4 - 7920 Heidenheim 


Komtek I wenig gebraucht 660, — * 07321-24315 * 

Suche Tauschpartner für V.G. Spiele (16K, Cas- 
sette). Gegen Freiumschlag Liste. 

Iris Otten - Hermann Oststr. 16 - 5000 Köln 80 


Basic-Compiler für Genie I 16k Cass. 45,- 
dito. 48k Disk 99,- * D7321-24315 * 


Kassettenbetr .-System f. GENIE: 

Mit 3-Facher Geschwindigk. BASIC-, Masch.-Prgme u. 
Matrizen speichern u. laden. Programm (n. 800 Byte) 
10,- DM 

fei. (nach 18 Uhr) 0531/352606 


Genie I incl. 10 Programme 1450,- * 07321 * 
LW mit Controller incl. G-Dos nur 1450,- * 23294 * 
Kennwort 'Genie Data' bei Bestellung bitte angeben! 
M. Schuster - St. Pöltenerstr. 4 - 7920 Heidenheim 


**■**#■****■****•**#*#•* *************•**■*#•*■***•«•***•**■****** 

* Userclub MC-Freunde Köln f. GENIE + * 

* TRS80 Anwender sucht Mitglieder und * 

* Kontakte. BASIC + DOS-Handling Kurse * 

Kalker Hauptstr. 189 5000 Köln 91 

**«*»♦*»*»«-*»*♦****♦*♦**■»*■»»»**« »»»»■»■ » » »«»«*»■»»*«»♦* 


Kleinanzeigen in der GENIE DATA sichern 
Ihnen eine optimale Resonanz! 

Kleinanzeigen sind preiswert. - Für .Abonnenten 
3 Textzeilen kostenlos. - 
Zur Bestellung benutzen Sie bitte die Bestell- 
Karte in dieser GENIE DATA. 


NEUE ROMS 
FÜR COLOUR GENIE 


Endlich ist es soweit, die für April '83 angekün- 
digte neue ROM-Version ist lieferbar. Die ab 
jetzt gekauften Geräte sind standartmäßig da- 
mit ausgerüstet. Bei der Entwicklung dieser 
ROM's wurde angeblich auf Kompatibilität mit 
der älteren Version geachtet, und wirklich, die- 
se Kompatibilität wurde erreicht: Alle Original 
TC5-Programme laufen ohne Änderung! Auch 
selbstgestrickte Programme werden - soweit ich 
dies testen konnte - ohne Probleme übernom- 
men. Allein im BASIC muß man einzelne Befeh- 
le ersetzen: so z. B. wird der Befehl ’FILLn' 
durch den Befehl 'FCLSn' mit gleicher Wirkung 
ersetzt. 

Interessant ist besonders die Möglichkeit des 
AUTO-START beim DOS; die alten ROM’s er- 
möglichten den DOS-Aufruf nur per 'CALL 1 . 
Desweiteren hat der Bildschirm eine Zeile dazu- 
bekommen: Statt 24 Zeilen stehen jetzt 25 Zei- 
len zur Verfügung; auch die Grafikauflösung 
wurde von 160x96 auf 160x102 Punkte erhöht. 


Alle Grafikbefehle unterstützen natürlich diese 
neue Auflösung. In diesem Zusammenhang sei 
noch erwähnt, daß der Befehl 'PLOTT' und alle 
auf diesem aufgebauten Befehle bemerkenswert 
schneller geworden sind! 

Auch wurden einige lästige Fehler beseitigt: 

Der ’PAINT'-Befehl arbeitet jetzt völlig fehler- 
frei!!! 

Alle Flächen werden komplett ausgemalt. Es 
sind 3 Formate möglich: 

PAINT X, Y, F 
PAINT X, Y, F, B 
PAINT X, Y, F, B, B 

X, Y sind die Koordinaten, von denen aus die 
Fläche bemalt wird. 

F ist die Farbe, mit der die Fläche ausgemalt 
wird. 

B ist eine Begrenzungsfarbe, bis zu der ausge- 
malt wird. 

Versuchen Sie doch einmal folgendes Beispiel- 
programm: 


10 CLS:FCLSiZ*0 
20 FGR 

30 IF Z«1 THEN Z=0 : GOTO 110 : ELSE Z=1 
40 I 2=RND< 10) 
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50 FÜR 1=1 TO 12 

60 F=RND<4> : FCOLOUR F 

70 X=RND( 159) : Y=RND<101> : R=RND<80> 

80 CIRCLE X , Y , R 
90 NEXT I 
100 GOTO 20 

110 REM ************#*##*##*******-******* 

120 FOR K=1 TO 13 

130 F=RND<4) : IF F=4 THEN 81=1 ELSE B1=F+1 

140 X=RND< 1 59) r Y=RND<101) : IF Bl=4 THEN B2=3 ELSE B2=B1+1 
150 PAINT X , Y , F , Bl ,B2 
160 NEXT K 
170 GOTO 20 

Oder testen Sie ganz einfach folgendes Pro- 
gramm: 

10 FGR : FCLS 

20 FCOLOUR 2 : CIRCLE 80,51,50 
30 FCOLOUR 3 : CIRCLE 80,51,30 
40 PAINT 90,80,4,2,3 
50 GOTO 50 


Aber auch andere Fehler wurden beseitigt; so 
läuft auch der Befehl "ERROR n" wieder richtig 
und "PRINT ERR/2+1" ergibt den Fehlercode 
bzw. "PRINT ERL" die Fehlerzeile. 

Andere Befehle wurden erweitert und mit mehr 
Möglichkeiten versehen, so auch der 'Play'-Be- 
fehl: 

Er nimmt jetzt als Argument auch Ausdrücke 
und Berechnungen an. 

Beispiel: 'PLAY (1, KEYPAD1, KEYPAD2, 

(JOY1X-1) AND15)' 

Ferner ist Lautstärke 16 jetzt möglich, damit 
wird der P5G auf Hüllkurve gesetzt. Addiert 
man zu den alten Notenwerten jeweils 16, so 
werden die Töne in einer besser gestimmten 
C-DUR-Tonleiter gespielt. 

Ebenfalls verbessert wurde der JOY-Befehl: 
Neben den alten Befehlen 'JOY1X', ’JOYIY', 
'30Y2X', 'JOY2Y' finden wir den Befehl 
JOY(n), mit dem bis zu 4 Joysticks a 2 Analog- 
inputs mit 8 Bits Genauigkeit (Werte 0-255) ad- 
ressiert werden können. Außerdem ermöglichen 
die Befehle ’JOYINP' und ’JOYOUT’ den Trans- 
fer von Basic-Programmen von einem 
Colour-Genie zum anderen. (Pin 10-18 und Pin 
20 des Parallelports müssen miteinander verbun- 
den sein.) 


Auch die Befehle SCALE und SOUND wurden 
sinnvoll erweitert: 

"PRINT SCALE" zeigt 


den zuletzt mit "SCALE 


Dies ist noch längst nicht alles, was die neuen 
ROM’s zu bieten haben, denn es wurden auch 
völlig neue Befehle aufgenommen: 

'SWAP A, B' 

vertauscht den Inhalt zweier Variablen gieicr 
Typs. 

'SET Bit, Adr' 

mit Bit=Bitnummer (Werte 0 bis 7) 
Adr.=Adresse des gewünschten Bytes. C c>tzi 
angegebene Bit auf I. 

'RESET Bit, Adr' 

Setzt das angegebene Bit auf 0 zurück. 

'CHECK (Bit, Adr)' 

prüft ob Bit gesetzt oder zurückgesetzt. 

Zu erwähnen sei noch, daß die Funktionstasten- 
belegung verbessert worden ist. (z. B. F6 = 'Sy- 
stem <Return>') 

Die neuen Möglichkeiten der Programmierung 
sind wirklich erstaunlich. Die Vorteile der er- 
weiterten Befehle kommen besonders bei spezi- 
ellen Problemlösungen zur Geltung. 

Die neuen ROM 's lassen sich ohne Schwierigkei- 
ten auch in 'alte' Geräte einbauen. Sie müssen 
lediglich die vier EPROM's, die bereits in Fas- 
sungen sitzen, gegen die neue Version austau- 
schen. (Bezugsquelle u. a. Fa. Schmidtke 
electronic / Sandkaulstr. 84 / 5100 Aachen -- 
Preis 80,— DM bei Einsendung der 'alten' 
Eproms) 


n" eingegebenen Wert an. 

"SOUND(r)" ergibt den Inhalt des Registers r 
des PSG. Zulässig sind die Werte 0 bis .15. 


Uwe Schmidtke 
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ELEKTRONIK 

TEIL1 


In dieser und den nächsten Ausgaben möchte ich 
Ihnen einige elektrotechnische Probleme und 
Programme vorstellen, die den Bastler und 
Elektro-Hobbyist sicherlich interessieren. Das 
Ganze soll natürlich keine wissenschaftliche Ar- 
beit werden, sondern mehr ein Auffrischen Ihres 
Wissens. Vielleicht gelingt es auch die eine oder 
andere Lücke zu füllen. 

Bevor wir einsteigen müssen erst ein paar Be- 
griffe geklärt werden. 

Was sind elektrische Stromstärke, elektrischer 
Widerstand und elektrische Spannung? 

Unter elektrischer Stromstärke versteht man 
die Anzahl der Elektronen, die durch einen 
Stromleiter wandern. 

Der elektrische Widerstand ist die Kraft, die 
der elektrische Strom bei seiner Wanderung 
durch einen Leiter überwinden muß. 

Die elektrische Spannung ist die Ursache des elek- 
trischen Stromes und ist die Größe, die zwi- 
schen den Polen einer Spannungsquelle ansteht. 

1826 gelang es dem Physiker Georg Simon Ohm 
erstmals einen gesetzmäßigen Zusammenhang 
zwischen diesen drei Größen festzustellen. Er 
entdeckte, daß bei konstanter Spannung eine 
Verkleinerung des Widerstandes eine Vergrößer- 
ung des Stromes nach sich zieht. Daraus ergab 
sich das "Ohmsche Gesetz": 

elektr. Spannung 

elektr. Stromstärke = — — 

elektr. Widerstand 

Diese Schreibweise erwies sich für die Praxis 
als zu umständlich. 

Es wurde die Kurzschreibweise 

U 

R 

eingeführt. 

Die vierte elektrische Größe, die wir hier be- 
trachten, ist die Leistung. Die elektrische Lei- 
stung wird berechnet aus dem Produkt von 
Strom und Spannung. Sie ist die Größe, die im 
Widerstand in Wärmeenergie umgeformt wird. 

elektr. Leistung = elektr. Strom x elektr. 
Spannung 

Und in der Kurzschreibweise: 

P = I x U 


Hier nun 

eine Übersicht 

der Größen 

und Ihrer 

Einheiten: 






Strom 

I 

Ampere 

A 


Spannung 

U 

Volt 

V 


Widerstand 

R 

Ohm 

& 


Leistung 

P 

Watt 

w 


Der Zusammenhang der vier Größen laßt sich 
am Besten anhand eines Beispiels verdeutlichen. 


1=1 Ampere 



Liegt an einer Spannung von 10 Volt ein Wider- 
stand von 10 Ohm, so fließt ein Strom von 1 
Ampere. 

Die am Widerstand umgesetzte Leistung berägt 
10 Watt. 

Bevor wir zum Programm kommen noch ein 
paar Worte zur Arithmetik. Je nach Eingabebe- 
dingung müssen die Gleichungen I = U/R und P 
= U x I umgestellt werden bzw. verschachtelt 
werden. 

Hierfür ein Rechenbeispiel: An einer Spannung 
von U = 20 Volt liegt ein Widerstand, an dem 
die Leistung P = 1 Watt umgesetzt wird. Ge- 
sucht ist der Strom (I) und der Widerstand (R). 
Die Gleichung P = U x I wird umgestellt in I = 
P/U. 

Die zweite Gleichung erhält man durch das Ein- 
setzungsverfahren. 

Ausgangsgleichung: P = U x I 

für I können wir, nach der Gleichung I = U/R, 

U/R einsetzen. 

Daraus ergibt sich 

U U 2 

R R 

und durch umstellen 



R = 

P 

Nach dem Einsetzen der Zahlenwerte ergibt 
sich ein Strom von 0.05 A (= 50 mA) und ein 
Widerstand von 400& 

Doch nun genug der Theorie. Bei näherer Be- 


trachtung des kleinen Programmes werden wohl 
keine Probleme mehr auftauchen. Die einzige 
kleine Raffinesse dürfte in Zeile 120 - 160 lie- 
gen. Dort werden die Eingabewerte den Variab- 
len I, U, R und P zugewiesen. Aber auch das 
wird für Sie keine Neuheit sein. 

Und jetzt viel Vergnügen beim "Tippen". 

Bernd Kaiser 


10 CLEARüCLS 

20 PRINTTAB (22) "Ohmsches Gesetz” 

30 PRINT" PRINT"Geben Sie zwei der vier Groessen ein. Das Programm ermitte 
lt “ 

40 F'RIMT"die beiden anderen.“ 

50 PRINT, "Strom I (Ampere) *' 

60 PRINT, "Spannung U (Volt)" 

70 PRINT, "Widerstand R (Ohm)" 

SO PRINT, "Leistung P (Watt)" 

90 PRINT 

100 INPUT" 1 » Groesse (Kurzzeichen, Wert) "SA$,A 
110 INPUT"2. Groesse (Kurzzeichen, Wert) 

1 20 )<= ABS ( ASC ( A* ) -SO > 

130 Y-ABS (ASC (B$) -80) 

140 AOO==A 
150 A(Y)==B 

160 I=A(7) s U= A ( 5 > :R=A<2> :p=fi(0) 

1 70 I F I >0ANDU >0THENR=U/ I : P=U*I : G0T0230 

i 80 I F I >0 ANDR >0THENU= I *R : p= I * I m=R : GGT0230 

190 I F I >0ANDP >0THENU=P/ 1 s R==p/ ( I * I ) GOT0230 

200 I FU >0 ANDR >0THEN I =U / R : P=U*U/R: GÜTG230 

210 I FU >0ANDP >ÖTHEN I -P / U s R=U*U/F's G0T0230 

220 I FR >0ANDP >0THEN I =SQR ( P/R ) : U=5DR ( P*R ) s GÜ 70230 

230 PRINTs F'RINT"Ersebni s : " 

240 PRINT, "Strom =", I , "Ampere" 

250 PRINT, "Spannung =",U, "Volt" 

260 PRINT, "Wi derstand =",R,"Dhm" 

270 PRINT, "Lei stung =" , F', "Watt " 

280 PRINTs f :, R INT "Neue Errechnung (J/N) ?" 

290 Ci- INKEY*: I FC*< >" J " ANDC$< >"N" THEN290 
300 I FC$= " J " TUEN 1 0 
310 END 


TRS-80/VG Hard- und Software 

ROM-Listing 

• Vollst. disass. und deutsch kommentiert; 

• RAM-l/O-Adressen; 

• Vergleich der verschiedenen TRS-80/VIDEO- 
GENIE-Versionen; 

• 150 genau erläuterte Unterprogramme; 

• und vieles mehr (s. auch Kritiken in mc 1/82 und 
cp 13/82). 

129 Seiten gebündelte (und gebundene) Information 
f. 69,55 DM inkl. MwSt. 

L. Röckrath 

Noppiusstraße 19, 5100 Aachen, Telefon (02 41) 3 49 62. 


Die nächste GENIE DATA 
erscheint am io. Sept. 1983. 

******************* ************* ****** 

Anzeigenannahme für die Ausgabe 
Nummer vier der GENIE DATA 

bis zum 7. Aug. 1983. v' & 


■'-i 




IMPRESSUM 


GENIE DATA, Ausgabe 3, Jahrgang 1, 
Juli/August 1983 

Herausgeber: Ralf M. Hübben, Verlag für Com- 
putertechnik, 5429 Marienfels, 

Telefon: 06772-1261 
Chefredaktion: 06772-7828 

Chefredakteur: Ralf M. Hübben 

Titelgestaltung: Offsetdruckerei Heinz Hübben, 
5429 Marienfels/Taunus. 

Erscheinungsweise: 2-monatlich. 

Abonnements: Bezugspreis jährlich, für 6 Aus- 
gaben, 30,— DM incl. Porto, Verpackung und 
gesetzl. Mehrwertsteuer. 

Satz: Ralf M. Hübben, Verlag für Computer- 
technik. 

Druck: Offsetdruckerei Heinz Hübben, 5429 
Marienfels/Taunus. 

Erfüllungsort: 5429 Marienfels/Taunus. 

Gerichtsstand: Das für den Verlagssitz zustän- 
dige Gericht. 

Manuskripte: Unangeforderte Manuskripte wer- 
den nur zurückgesandt, wenn ausreichendes 
Rückporto beigelegt wurde. Jeder Einsender 
erklärt sich durch die Einsendung mit einer 
Veröffentlichung des eingesandten Materials in 
GENIE DAT A/Software-Service einverstanden. 

Copyright (C) 1983 by Ralf M. Hübben, Verlag 
für Computertechnik, 5429 Marienfels. Nach- 
druck, Vervielfältigung, Übertragung sowie 
Speicherung in EDV-Anlagen verboten. Bei 
Bauanleitungen und/oder Programmen kann für 
die Fehlerfreiheit keine Garantie übernommen 
werden. 

Die Meinung der einzelnen Autoren muß nicht 
mit der des Verlages übereinstimmen. 

Anfragen an die Redaktion bitte nur schriftlich 
mit beigelegtem Rückporto. 


Kündigung: Zu jedem Quartal, rechtzeitig (6 
Wochen) vor Ende des Quartals. Jedes Abonne- 
ment verlängert sich nach Ablauf automatisch 
um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die nicht 
in der Verantwortung des Verlages liegen, nicht 
oder nicht rechtzeitig erscheinen, besteht kein 
Anspruch auf Nachlieferung. 

Für eventuelle Schäden und/oder Folgeschäden 
an Geräten und/oder Bauteilen und/oder Daten- 
verlust kann keine Haftung übernommen wer- 
den. Der Nachbau unserer Bauanleitungen 
und/oder die Anwendung von Programmen aus 
der GENIE DATA erfolgt auf eigene Gefahr.. 
Alle Mitteilungen erfolgen nur für Amateur- 
und Hobby-Zwecke. Irrtum sowie alle Rechte 
Vorbehalten. Es kann keine Gewähr dafür über- 
nommen werden, das die verwendeten Schal- 
tungen, Firmennamen, Warenbezeichnungen und 
alle anderen Angaben frei von Schutzrechten 
Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines eventuellen Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Bei allen Artikeleinsendungen gehen wir davon 
aus, daß der Verfasser alle Rechte an der Ein- 
sendung besitzt, sowie geistiger Eigentümer 
ist. 

Über jede Artikeleinsendung freuen wir uns! 

Honorar: Für jeden gedruckten Artikel bezah- 
len wir pro Druckseite ein Honorar von 50,— 
DM. 

Wir gestatten jedermann, einen Artikel aus der 
GENIE DATA zu entnehmen und in einer ande- 
ren Druckschrift zu veröffentlichen, unter der 
Bedingung, daß an der Gestaltung nichts verän- 
dert wird, das erwähnt wird, daß der betref- 
fende Artikel aus der GENIE DATA entnom- 
men wurde und daß man uns mindestens ein 
Exemplar der Druckschrift kostenlos, sofort 
nach Erscheinen, zur Verfügung stellt. 
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Wenn Sie ein gutes Programm für das 
COLOUR GENIE 

(Assembler oder co mpiiiert) 
geschrieben haben und daran interessiert 
sind es zu verkaufen, dann schicken Sie es uns zu. 
Wir zahlen Spitzenpreise für die 
Copyrights an Spielen 
und Hilfsprogrammen. 


RALF M. HÜBBEN, VERLAG FÜR COMPUTERTECHNIK, 5429 MARIENFELS 


Jße r l ine r 


DER v SPEZIALIST FÜR 


VIDEO 




BÜRO COMPUTER 


GENIE III 


Z f!0 A CPU, 4 MHZ 
64 K RAM, erweitert), auf 256 K 
2 K ROM für Urlader und Test- 
routinen, Betriebssystem G-DOS, 
New DOS BO, Z-DOS u. CPM 2,2a 
80 Zeichen/Zeile, blendfreier 
hochauflösender Bildschirm 
wähl». 64x16 oder 80x24 Zeich. 
einstellbar, 160x72 Bildpunkte 
(High-Resolution Option) 

PrGgram. Basic, Assembler, 
Fortran, Cobol, Pascal usw. 
Deutsche Tastatur mit Umlauten 
u. 10 Bl., 8 frei program. 
FunktionstasLen 
2 Disklaufwerke b. 1,4 MB 
eingebaut, \I 24 u. Centronics 
Parallel Schnittstelle 
Preis: ab 5700,00 DM 

Typenradd. EG 5100 2950,— DM 
MatriJ^dr. EG 3085 1750,— DM 

Matrixdr. EG 3100 2650,— DM 

PROGRAMME 

Genie Text 395, — DM 

Geschäftsprogr. GP4 1950,— DM 
Finanzbuchhalt.il 995, — DM 
Finanzbuchhalt.IlI 1950, — DM 
(Mandanten fähig) 
Finanzbuchhaltung 
(Bornheim u. Partner ) ab 

1890, — DM 
Lagerverwaltung 595, — DM 
Adressenverwaltung 395, — DM 
Wareneingongsbuch 395, — DM 
Genie Calc 295,— DM 

L-ohn-u. Gehalt 

(Berlin) 1950,— DM 

Diskettenbox mit Klarsichthaube 
und Schloß für 40 Disketten 
Diskettenbox mit Klarsichthaube 
und Schloß für 80 Disketten 
Disketten (Nashua, BASF, Scotch 3M) 
im 10er Pack 


HEIM COMPUTER 


■■ 


HOBBY COMPUTER 




GENIE I u. II 

Z 80 CPU/64 K RAM (48K fr. verf. ) 
12 K ROM + 2 K Level 4 ROM in. Routinen 
64 Zeichen x 16 Zeilen Bildausgabe 
F ernseh-u. Monitor-Ausgang 
Software-Kompatibel mit TRS 80 
Disketten- u. Drucker-Anschluß 
deutsche Umlaute auf dem Bildschirm 
Cassettenrecorderanschluß 


COLOUR GENIE EG 2000 j 

Z 80 CPU/ 16 Farben I 

Hochauflösende Grafik (4 Farben) 
16 K RAM Grundausstattung I 

Soundgenerator 3 Kanäle j 

PAL Fernseh- u. Monitor-Anschluß , 
24 Zeilen a 40 Zeichen ( 

Schnittstellen V24 u. Parallel | 
Cassettenrecorderanschluß 


645,-- 


Preis Genie I 
Preis Genie 11 


1395,— DM 
1495,— DM 


Speichererweit. 16K 165, — DM 
Druckeranschlußkabel 95, — DM 


MONI TORE 

Zenith 15 MHZ grün 275, — DM 
Megnasonic 15 MHZ grün mit 

1 j- Q; i j '»on »m 


entspieqeltem Bild 
BMC 12ES 18 MHZ grün 
San jo DM 8212 CX 
bernstein 18 MHZ 

Monitarständer für 
Genie I+II 
Druckerständer 


298,— DM 
395,— DM 

495,— DM 

98,— DM 
72,— DM 


Joysticks, Paar 
Lightpen 

Cassettenrec. m. Zw 
Cassettenrec. o. Zw 
Datenmonitor . a 
Drucker EG 3050 
Tractor für EG 3050 
Seikosha GP 100 

COLOUR - PRT 


245,— DM 
95,— DM 
v 125,— DM 
v 89,— DM 
ab 275.— DM 
840,— DM 

] ()M 

680,— DM 


Matrixdrucker I iOH 8510 A (120Z/s) 
voll Plottfäh ig , 6 Schriftbreiten 
3K Datenbuffer, Unterlängen 
Preis 1750,— DM 

Doppeldiskstation m. 2 Laufwerken 
u. Kabel ab 1580,— DM 

Doppeldiskstation m. 1 Laufwerk 
und Control. 1495, — DM 


WIR FÜHREN 
SÄMTLICHES ZUBEHÖR 
FÜR VIDEO GENIE 


COLOUR - PROGRAMME 
Invasion (Weltraumk.) 39, — DM 
Punktejagd (ArtPacm. ) 39, — DM 
Breakout (Wand abbauen) 

39,— DM 

Racing Driver 

(Hindernis fahren) 39, — DM 
Orgelspiel 39, — DM 

Space Tighter 39, — DM 

Kampfhubschrauber 25, — DM 
Glücksspielautnmat 25, — DM 
Landkarte (Städte 

raten) 25,— DM 
Kampf im Weltraum 25, — BH 
U-§öot versenkeH 25, — BM 
Zeicheneditor 25, — BM 

Soundeditor 25, — DM 

Maschinenspr. Monitor 45, — DM 
Assembler 69, — DM 

Colour Compiler 69, — DM 






62,— DM 
92,50 DM 
ab 69,— DM 


Geschäftszeiten : 

Dienstag bis Freitag 10-1B Uhr *»' 
Samstag lü-13 Uhr 
Montag Ruhetag 


69,— DM 
69,— DM 


rifcO'- 

► 


SUPER STAR DP 510 

Drucken und Plotten m. Präzision 
9 x9 Matrix mit Unterlängen 
hochaufl. Graphik und Blockgraph. 

100 Zeichen/sec. bidirektional _ .. 

Traktor u. Friktion (Einzelbl.) IM UH 1 |95, - ' 



,+ff mm 

.Jü 1 1 Li 1 1 1 nr 


1000 herlin 12 . schlüterstr, 16 |030| 312 59 13 


Wir haben Dienst-, System- und Spielprogramme 
ständig am Lager und führen auf Wunsch vor. 
Programmwünsche u. Änderungen werden berücksichtigt. 


Reichhaltige Fachliteratur 
am Lager ! 

(Wird ständig erweitert) 








GENIE DATA 
SOFTWARE- 
SERVICE 

Sicherlich haben Sie schon oftmals beim abtippen der Programme aus der GENIE 
DATA bemerkt, wie mühselig solch eine Arbeit sein kann. 

Zuerst tippt man, und wenn das Programm im Speicher steht, muß man sich daran 
machen, die diversen Fehler, die beim abtippen entstehen, zu beseitigen. 
Selbstverständlich lohnen die tollen Programme in der GENIE DATA diese Mühe, aber 
wir möchten Ihnen noch einen anderen, viel bequemeren. Weg zeigen, wie Sie in den 
Besitz der Programme aus der GENIE DATA gelangen können: 

DEN GENIE DATA SOFTWARE-SERVICE 

Der GENIE DATA SOFTWARE-SERVICE ist eine neue, tolle Sache, für alle GENIE 
DATA Leserinnen und Leser. ' 

Der GENIE DATA SOFTWARE-SERVICE bringt zu jeder GENIE DATA zwei Compact- 
Cassetten heraus, die eine Cassette enthält sämtliche Genie I + II Programme aus der 
betreffenden GENIE DATA, die andere alle Colour Genie Programme. 

Die Programm-Cassetten des GENIE DATA SOFTWARE-SERVICE erscheinen, genau 
wie die GENIE DATA, alle zwei Monate. 

DAMIT HAT DIE TIPPEREI EIN ENDE! 

Die Cassetten des GENIE DATA SOFTWARE-SERVICE werden Ihnen per Post in's 
Haus geliefert, und um in den Genuß der tollen Programme zu kommen, brauchen Sie 
nur noch die Cassette einzulegen und zu laden. 

Jede Cassette wird mindestens vier Programme enthalten, im Normal-Fall aber mehr. 

UND DAS TOLLSTE IST DER FANTASTISCH NIEDRIGE PREIS! 

Die einzelne Cassette, mit allen Programmen der jeweiligen GENIE DATA, egal ob für 
Genie I + II oder Colour Genie, wird nur 19,80 DM incl. gesetzl. MWSt, kosten! 

Und Sie können die Cassetten des GENIE DATA SOFTWARE-SERVICE auch 
abonnieren. Ein Jahres-Abo (6 Programm-Cassetten) kostet nur 99,90 DM!!! 

Das heißt: Mit einem Abo sparen Sie nocheinmal 18,90 DM!!! 

Nehmen wir einmal den ungünstigsten Fall und Sie bekommen im Abo nur 24 
Programme, es werden mehr sein, dann bezahlen Sie pro Programm doch nur 4,16 DM! 
Das ist ein so toller Preis, daß wir damit wohl unschlagbar sind! 

Der GENIE DATA SOFTWARE-SERVICE startet mit der Nummer vier der GENIE 
DATA. Bestellen Sie sofort Ihr Abo! Es lohnt sich! 

Einzelne Cassetten versenden wir per Nachnahme, 19,80 DM + Porto, Abo's werden 
per Rechnung versandt, Porto und Verpackung frei. 

Zur Bestellung benutzen Sie bitte die GENIE DATA Kontaktkarte. Vergessen Sie nicht, 
zu schreiben, für welchen Computer die Programme gedacht sind. Richten Sie Ihre 
Bestellung noch heute an: 

Ralf M. Hübben, Verlag für Computertechnik, 5429 Marienfels! 




